Determining if a worksheet has formulas in it in VBA

[nyconfidential]

Hi all - working on a function that copies formulas from one worksheet to another. I'm looping through every sheet in the workbook - when I get to a sheet that has no formulas, I get that "1004 - No cells Found" error. Now I guess I can handle this through error handling, but is there a simple way to determine if a sheet has formulas before I start the meat of my sub? I'm trying an If statement at the moment(If ThisWorkbook.Sheets(rCell.Value).Cells.SpecialCells(xlCellTypeFormulas).count > 0 Then), but that isn't working(I get the same 1004 error when I step through that line). Anyone have any thoughts? Thanks in advance.

For Each rCell In rRng.Cells 
If SheetExists(rCell.Value) = True Then
        Application.DisplayAlerts = False
        Application.ScreenUpdating = False
        If ThisWorkbook.Sheets(rCell.Value).Cells.SpecialCells(xlCellTypeFormulas).count > 0 Then
            For Each r In ThisWorkbook.Sheets(rCell.Value).Cells.SpecialCells(xlCellTypeFormulas)
                ActiveWorkbook.Sheets(rCell.Value).Range(r.Address).Formula _
                = ThisWorkbook.Sheets(rCell.Value).Range(r.Address).Formula
            Next r
    End If
Next rCell

 

[Fluff]

How about

   Dim Flg As Boolean
   
   For Each rCell In rRng.Cells
      If SheetExists(rCell.Value) = True Then
         Application.DisplayAlerts = False
         Application.ScreenUpdating = False
         On Error Resume Next
         Flg = ThisWorkbook.Sheets(rCell.Value).Cells.SpecialCells(xlCellTypeFormulas)
         On Error GoTo 0
         If Flg Then
            For Each r In ThisWorkbook.Sheets(rCell.Value).Cells.SpecialCells(xlCellTypeFormulas)
               ActiveWorkbook.Sheets(rCell.Value).Range(r.Address).Formula _
               = ThisWorkbook.Sheets(rCell.Value).Range(r.Address).Formula
            Next r
         End If
      End If
      Flg = False
   Next rCell

 

[nyconfidential]

Will try, thank you for your help Fluff.