Search For Array Formulas by Cell Reference

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