If Special Cells count is zero

Hi jomili,

You need to 'trap' the Runtime error, so you can continue processing with syntax like the following:

Sub SpecialCellsRuntimeError()

  Dim iCount As Long

  On Error Resume Next
  iCount = 0
  iCount = Selection.Cells.SpecialCells(xlCellTypeFormulas).Count
  Err.Clear
  On Error GoTo 0
  
  
  If iCount > 0 Then
    MsgBox "The Selection has cells that have formulas."
  Else
    MsgBox "The Selection has NO cells with formulas."
  End If

End Sub

Lewis