Please help...................................

Public Sub q()
On Error GoTo MError

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.workbooks.Open("C:\Test.XLS")
Set xlSheet = xlBook.Sheets("Sheet1")

Set xlSheet = Nothing

xlBook.Save

xlBook.Close
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing
End

MError:
MsgBox (Err.Description), vbCritical
End Sub


--
Please type david.com inplace of no.thanks.
Sorry for the inconvenience but fed up of spam mail.

Dave

it would help if you told us what you want to happen and what it's not
doing.

Regards

Trevor


"Dave" wrote in message
...
Please help...................................

Public Sub q()
On Error GoTo MError

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.workbooks.Open("C:\Test.XLS")
Set xlSheet = xlBook.Sheets("Sheet1")

Set xlSheet = Nothing

xlBook.Save

xlBook.Close
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing
End

MError:
MsgBox (Err.Description), vbCritical
End Sub


--
Please type david.com inplace of no.thanks.
Sorry for the inconvenience but fed up of spam mail.