Delete Entire Rows

I know I was a pain in the *** earlier, but this time I'll try to be easy. Can you tell me why this keeps coming back to say "No cells were found"?

I only have like 5 rows that have data in Column H, and all the rest of the rows should be deleted as per the red text part of my quote, right? Why isn't it working?

Sheets("Survey").Select
Sheets("Survey").Copy After:=Sheets(1)
Sheets("Survey (2)").Select
Sheets("Survey (2)").Name = "Notes"
Range("A:J").Sort Key1:=Range("H1"), Order1:=xlDescending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Columns("H:H").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Selection.Delete Shift:=xlUp
End Sub

Thanks again in advance!

Delete this thread. I just discovered that my so-called "blank" cells actually all have a space in them.

So now I have to figure that out.

Originally Posted by razorangel

I know I was a pain in the *** earlier, but this time I'll try to be easy. Can you tell me why this keeps coming back to say "No cells were found"?

I only have like 5 rows that have data in Column H, and all the rest of the rows should be deleted as per the red text part of my quote, right? Why isn't it working?



Thanks again in advance!

Delete this thread. I just discovered that my so-called "blank" cells actually all have a space in them.

So now I have to figure that out.

Hi,

try

Columns("H:H").SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete

or

ActiveSheet.Columns("H:H").SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete

hth
---