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.
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.