If Special Cells count is zero

Should be simple, but for me not so much. Here's what I'm trying to do: IF there are any formula cells in my selection shut it down, otherwise do my stuff. My problem is when there are no formula cells, excel throws up an error saying no cells are found. Any help is appreciated.

If Selection.Cells.SpecialCells(xlCellTypeFormulas).Count > 0 Then
        MsgBox "Macro is exiting because there are" & vbCrLf & _
               "formulas in the range to be worked.", vbOKOnly + vbCritical, "CAN'T PROCESS FORMULA CELLS"
        Exit Sub
    Else
        MsgBox "No Formulas"
        'do the rest of my stuff
    End If

Thanks Holger, that seems to work well. I appreciate the help.

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

Sorry Lewis, guess I was posting the same time you were. Thanks for the help.