Sending Excel File to Winzip After saving

Hi.

I have a VB script that opens an excel sheet, refreshs it for new data, and then saves it. I would like to zip the excel file after thje save.

Here is my current code.

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = false

Set objWorkbook = objExcel.Workbooks.Open("C:\documents and settings\users\u14456\desktop\(CMS)_CASH OPS_AGENT_CUBE.xls")
Objworkbook.RefreshAll
WScript.Sleep 10000
objWorkbook.save
objworkbook.close

Thanks for your help.