deleting rows in excel from vba

[grmman]

I want to be able to loop thru an excel workbook that has 20 sheets init and be able to delete the first row in each sheet.
Here is the code I have. it deletes all the rows(the first sheet only has 2 rows)in the first sheet.
Thanks

Set xlapp = GetObject(, "Excel.Application")
xlapp.Visible = False
Set xlwb = xlapp.Workbooks.Open("N:\ESE Development\PA E & S\Program\sheets\es_test.xls")
Set sheet = xlapp.ActiveWorkbook.Sheets(1)
z = 1
sheetcnt = xlapp.ActiveWorkbook.Sheets.Count


For z = 1 To sheetcnt
    Set sheet = xlapp.ActiveWorkbook.Sheets(z)
    MsgBox sheet.Name & " ::::" & z
    Rows(1).EntireRow.Delete
Next z

 

[lupins46]

Sheet.Rows(1).EntireRow.Delete

 

[grmman]

thank you

 

[PHV]

In you have charts in your workbooks, a safer way:
For Each sheet In xlapp.ActiveWorkbook.Worksheets
MsgBox sheet.Name & " ::::" & z
sheet.Rows(1).EntireRow.Delete
Next sheet

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884