Option Public Use "ExportToExcel" Sub Initialize Call ExportViewToExcel("Selected") End Sub