Hi all,
I recently found this macro on these forums for deleting rows where all of the cells are empty.
Unfortunately my efforts to get this to work only in a Table have failed. Here is my modified code that isn't working for me.
Any help would be greatly appreciated!
I recently found this macro on these forums for deleting rows where all of the cells are empty.
Code:
Sub RemoveEmptyRows()
On Error Resume Next
With Range("B300:B1000")
.Value = .Value
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub
Unfortunately my efforts to get this to work only in a Table have failed. Here is my modified code that isn't working for me.
Code:
Sub a_Remove_Empty_Rows()
On Error Resume Next
With Range("ProjectReport")
.Value = .Value
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub
Any help would be greatly appreciated!