If Range("A1").HasArray = True Then
MsgBox "Ячейка содержит формулу массива"
Else
MsgBox "Ячейка не содержит формулы массива"
End If
If Range("A1").HasArray = True Then
MsgBox "Ячейка содержит формулу массива"
Else
MsgBox "Ячейка не содержит формулы массива"
End If