Seleting and delting blank rows on multiple WS

[Prdponce]

Hi guys. I am trying to run a macro to delete blank rows within a range on all the worksheets in a workbook. Here is what i got so far and is not working. thanks for any help you can provide.

[FONT=Calibri][SIZE=3][COLOR=#000000]Sub SheetTest()[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]Dim ws As Worksheet[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000] [/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]For Each ws In ActiveWorkbook.Sheets[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    MsgBox ws.Name[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]   ActiveWindow.SmallScroll Down:=-72[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]   Range("D23:D127").Select[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    Selection.SpecialCells(xlCellTypeBlanks).Select[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]   Selection.EntireRow.Delete[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000] [/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    Next ws[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    [/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]End Sub[/COLOR][/SIZE][/FONT]

 

[Fluff]

Hi & welcome to MrExcel.
In what way isn't it working?

 

[Prdponce]

Thanks. It just does not move to the next sheet. and repeat.

 

[Fluff]

Try

Sub SheetTest()
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Sheets
   ws.Range("D23:D127").SpecialCells(xlBlanks).EntireRow.Delete
Next ws

End Sub

 

[Prdponce]

It worked thanks

 

[Fluff]

You're welcome