Sub Тест()
'
Dim val1 As Long
Dim Str, kol As Long

Dim MyArr() As Variant

MyArr = Range("МойМассив")
  
////обходим строки  
For Str = LBound(MyArr) To UBound(MyArr)
     //пытаюсь обойти колонки
    For kol = LBound(MyArr) To To UBound(MyArr)
 /////понимаю что тут должно быть обращение к MyArr(1,kol ) но такой варинт.не работает
     
     val1 = MyArr(Str, kol)
     
     Next
Next

   
End Sub


//////////////////////так работает

Sub Тест()
'
Dim val1 As Long
Dim Str, kol As Long

Dim MyArr() As Variant

MyArr = Range("МойМассив")
     
For Str = LBound(MyArr) To UBound(MyArr)
     
    For kol = LBound(MyArr) To Range("МойМассив").Columns.Count
     
     val1 = MyArr(Str, kol)
     
     Next
Next

   
End Sub


////////////////////////////////   И так тоже работает


For Str = LBound(MyArr) To UBound(MyArr)
     
    For kol = LBound(MyArr) To 4
     
     val1 = MyArr(Str, kol)
     
     Next
Next

не работает

Dim A(1 To 100, 0 To 3, -3 To 4)