Определить адрес всех ячеек, содержащих формулу массива, исходя из любой ячейки этого массива — Visual Basic(Бейсик)

If Range("A1").HasArray = True Then
   iRangeArray = Range("A1").CurrentArray.Address
   MsgBox "Формула массива введена в ячейки : " & iRangeArray
Else
   MsgBox "Ячейка не содержит формулы массива"
End If
code: #vba
Dim iCell As Range, iDiapazon As Range
Set iCell = Range("A1")
If iCell.HasArray = True Then
   Set iDiapazon = iCell.CurrentArray
   MsgBox "Формула массива введена в ячейки : " & iDiapazon.Address
Else
   MsgBox "Ячейка не содержит формулы массива"
End If