
Originally Posted by
John Vieren
Will try and adapt it to look at every worksheet in the workbook.
Added another loop to do the same task on all sheets of that workbook 
Try the below code 
Sub CheckArrayFormulas()
Dim rFormulas As Range, r As Range, Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In ThisWorkbook.Worksheets
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 = 65535
Next r
End If
Set rFormulas = Nothing
Next Ws
Application.ScreenUpdating = True
End Sub
Bookmarks