Deleting Rows

[joeyc]

Hello,

I would like to draft a macro so that it deletes the second row of every sheet in the workbook based upon one condition. The condition is if the 2nd row on a given worksheet is blank then delete this row if not leave it alone and go to the next worksheet and check the 2nd row there. Naturally, the number of worksheet in the workbook is undefined.

Thank you in advance for any help.

[Bob Phillips]

[vba]
For Each ws In Activeworkbook.Worksheets

If Application.CountBlank(ws.Rows(2)) = ws.Columns.Count Then

ws.Rows(2).Delete
End If
Next ws
[/vba]

[joeyc]

Nice work!