Public Sub SelectArrayFormulaCells()
Dim r As Range, rUnion As Range
For Each r In ActiveSheet.UsedRange
If r.HasArray Then
If rUnion Is Nothing Then
Set rUnion = r
Else
Set rUnion = Union(rUnion, r)
End If
End If
Next r
If Not rUnion Is Nothing Then rUnion.Select
End Sub