Hi,

Seems the multiple worksheet code above is not working beyond the first worksheet, not sure why.

The code I ended up with noted below in case anyone is interested.

Once again thanks for all the help, regards John


Sub Macro1()
'
' Macro1 Macro
'

 Dim WS_Count As Integer
 Dim I As Integer
 Dim rFormulas As Range
 Dim r As Range

    WS_Count = ActiveWorkbook.Worksheets.Count
    For I = 1 To WS_Count
    ActiveWorkbook.Worksheets(I).Select
      
       On Error Resume Next
       Set rFormulas = Cells.SpecialCells(xlCellTypeFormulas)
       On Error GoTo 0
       If Not rFormulas Is Nothing Then
       For Each r In rFormulas.Cells
       If r.HasArray Then r.Interior.Color = 11119017 ' DARK GREY
       Next r
       End If
       Set rFormulas = Nothing
      
    MsgBox ActiveWorkbook.Worksheets(I).Name
    Next I
    End Sub