Private Sub Command0_Click()
Dim xlApp As New Excel.Application
Dim xlwrkBk As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlwrkBk = xlApp.Workbooks.Open("C:\Documents and Settings\340364\60 Project Files\140 Excel Automation\ZXOR27NovB.xls")
Set xlSheet = xlwrkBk.Worksheets("OpenExchangeOrders27Nov")
xlSheet.Rows(1).Delete
xlwrkBk.Save
xlwrkBk.Close
Set xlSheet = Nothing
Set xlwrkBk = Nothing
xlApp.Quit
Set xlApp = Nothing
MsgBox "Done"
End Sub