VBA to delete rows based on empty cell

[Johnson Boni]

Hi.

Brand new here and to the world of VBA and MACROS.

I need help with a certain situation I have.

I have a workbook with twelve worksheets, sheet 1 - sheet 12. A lot of data but what I need to concentrate on is column d. I would like assistance with a vba code that would delete the entire row if the cell in column d is empty. There are three groupings. I really have no control over this as the template is controlled and not much I can do to change it.

Lets say the ranges are D3:D28, D35:D40, and D50:D55. Should any of the cells be empty the entire row to be deleted and to repeat for all twelve sheets.

Thank you!

 

[footoo]

Sub DeleteRows()
Dim ws As Worksheet
On Error Resume Next
For Each ws In Worksheets
    ws.[D:D].SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
Next
End Sub

OR :

Sub DeleteRows()
Dim x%
On Error Resume Next
For x = 1 To 12
    Sheets("Sheet" & x).[D:D].SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
Next
End Sub

 

[Johnson Boni]

Both of these examples from petertenthije and footoo perform perfectly. Thanks!