Dear All

How to zip an excel97 activeworkbook? Went thro the MVP sites and copied
the code but does not work. Pls help.

get errors at the following places:

1. oApp.Namespace(FileNameZip).CopyHere FileNameXls
and in another code copied

2. ShellStr = PathWinZip & "Winzip32 -min -a" _
& " " & Chr(34) & FileNameZip & Chr(34) _
& " " & Chr(34) & FileNameXls & Chr(34) _
ShellAndWait ShellStr, vbHide 'Error at this place

brgds/captgnvr