Not sure I am doing this right, JHB. Please see below. Thank you very much for your assistance.
Private Sub cmdQUERY2_Click()
Call Send2Excel(Forms!VendorListing, "VendorList")
End Sub
Public Function Send2Excel(VendorListing As Form, Optional VendorList As String)
' frm is the name of the...