Macro Ends When Error Hits

[Greemo]

Hello,

I'm running a macro and this following code is giving me issues:

Range("ImportDaily").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

It work's fine except when there are no blank cells for it to delete it errors with the message "No blank cells were found". How do I communicate in VBA to ignore the error and continue with the rest of the macro?

Greemo

 

[Jonmo1]

Try

On Error Resume Next
Range("ImportDaily").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
On Error GoTo 0

 

[Andrew Poulsom]

Like this?

On Error Resume Next
Range("ImportDaily").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
On Error GoTo 0

 

[Greemo]

Works great, thanks.

Greemo