G
Guest
Hi All
I've been trying to write a macro that deletes an entire row if a cell in a selection is empty
I've tried two different types, but both leaves cells if there is multiple blank cells between cells containing data. I.e. 5 blank cells between cells containing data
Could someone have a look at either one and suggest any appropriate modifications
Cheers and thanks
Al
Dim ThisCell As Rang
For Each ThisCell In Selectio
If ThisCell = Empty Then ThisCell.EntireRow.Delet
Next ThisCel
Dim ThisCell As Rang
For Each ThisCell In Selectio
If ThisCell.Value = Empty The
ThisCell.EntireRow.Delete shift:=xlU
End I
Next ThisCel
I've been trying to write a macro that deletes an entire row if a cell in a selection is empty
I've tried two different types, but both leaves cells if there is multiple blank cells between cells containing data. I.e. 5 blank cells between cells containing data
Could someone have a look at either one and suggest any appropriate modifications
Cheers and thanks
Al
Dim ThisCell As Rang
For Each ThisCell In Selectio
If ThisCell = Empty Then ThisCell.EntireRow.Delet
Next ThisCel
Dim ThisCell As Rang
For Each ThisCell In Selectio
If ThisCell.Value = Empty The
ThisCell.EntireRow.Delete shift:=xlU
End I
Next ThisCel