Sub DelRow()
Sheets("ABCD").Select
Columns("W:W").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Sheets("XYZA").Select
Columns("W:W").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
End Sub
This code helps me to select and delete the corresponding row to every blank cell in the column W for two different sheets. This works great if the column actually has empty cell. (Used a macro recorder for it). I need a test to first check if blank cells are present, only then do this.
Sheets("ABCD").Select
Columns("W:W").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Sheets("XYZA").Select
Columns("W:W").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
End Sub
This code helps me to select and delete the corresponding row to every blank cell in the column W for two different sheets. This works great if the column actually has empty cell. (Used a macro recorder for it). I need a test to first check if blank cells are present, only then do this.