Thanks Again,
I have trued your posted function above and am calling this from an eveny sub on a form buttom. Unfortunitely I am still gett the 3061 error too few parameters expected 1.
I have cut and pasted the Public Function SendTQ2ExcelSheet(strTQName As String, strSheetName As String)...