highlight empty cells - handling error - vba

[lezawang]

Hi
The code below will highlight empty cells in a Selection. but if I do not have an empty cell then it would give me an error message. Could you please tell me how you would handle that error message? Thank you very much.

Sub highlight_empty_cells()
    Selection.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 3
End Sub

 

[DanteAmor]

In that case

Sub highlight_empty_cells()
  On Error Resume Next
    Selection.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 3
End Sub

Or

Sub highlight_empty_cells()
  On Error Resume Next
  Selection.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 3
  If Err.Number = 1004 Then
    MsgBox "There are no empty cells"
  End If
End Sub

 

[lezawang]

Thank you very much Dante

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.