VB Script to remove row

[Guest]

I have a vb script written to just open a workbook and remove the first row.
I need it to remove the row not just delete the cell contents. here is the
script.

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\book1.xls")
objExcel.Visible = TRUE
Rows("1:1").Select
Selection.Delete Shift:=xlUp

I keep getting an error on line 5 char 24. Is there a different tag I should
be using?

 

[Bob Phillips]

Try this

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\book1.xls")
objExcel.Visible = TRUE
objWorkbook .ACtivesheet.Rows("1:1").Delete Shift:=xlUp


--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Ron de Bruin]

Try this

Change the sheet name

objWorkbook.Sheets("sheet1").Rows("1:1").Delete

 

[Guest]

Thanks to both of you. Both ways worked like a charm. I appreciate the
repsonses.