Type Mismatch Error in VBA for Range

[hasibuddinahmed]

Hi,

I get a type mismatch error for the following

Sub DeleteEmptyRows()On Error Resume Next
range("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Regards,
Hasib

 

[frank_AL]

Don't know. I copied your code into a new spreadsheet, put data in a few rows in Column A and left some blank. Code ran as expected with no errors for me.

 

[MARK858]

Is the sheet active at the time you run the code?
Are your blank cells truly blank or are they formulas returning ""?

What happens if you don't Select the cells i.e.

Sub DeleteEmptyRows()
On Error Resume Next
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error Goto 0
End Sub

 

[hasibuddinahmed]

Thank you Mark858, I selected the entire column and it worked.