Using Ron's code to try zipping an xls worksheet, namely:
'Sub Zip_ActiveWorkbook()
Dim strDate As String, DefPath As String
Dim FileNameZip, FileNameXls
Dim oApp As Object
Dim FileExtStr As String
'Create empty Zip File
NewZip (FileNameZip)"
A compile error occurs: Sub or Function not defined.
Is the function available in Excel 2007?