Hi,

I currently use the following code to remove empty rows :

Public Sub RemoveEmptyRows()
Dim c As Range
For Each c In Sheets("FIN_PENS_TAB").Range("A1:A105")
If c = "" Then c.ClearContents
Next c
Sheets("FIN_PENS_TAB").Range("A1:A105").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
I first delete the formula from the first cell if the cell is empty and then I delete the entire row if the first cell is empty.

This works just fine.

However, I would like to do this for multiple worksheets. The sheets all have different names (not sheet1, sheet2, etc) and the ranges are not always the same (I don't want to apply it to the entire worksheet, only to a specific range).

I've tried using union but that doesn't work.

Any suggestions on how to do this?

Thanks in advance.

Steven