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