Ошибка времени выполнения '9' Нижний индекс вне диапазона для размерного массива

Question

В настоящее время я пытаюсь прочитать и скопировать набор данных из электронной таблицы в массив. Тем не менее, я получаю код ошибки под названием «Ошибка во время выполнения» 9 «Подпись вне диапазона» всякий раз, когда я запускаю свой код.

Ошибка, похоже, в строке 15, но я не совсем уверен, что это за ошибка и как ее исправить.

Любая помощь будет оценена.

Спасибо!

Sub ObtainData()
    ' Declare and initialize your variables. Turn off screen updating
    Dim FileName As String
    Dim data_arr(1 To 3, 1 To 100) As Variant
    Dim x As Integer, y As Integer

    ' Obtain file name containing data from user
    FileName = InputBox("Enter File Name", "Hold up, wait a minute...", "19-03-04-MON JP")

    ' Open the file containing data using file name input from user
    Workbooks.Open ("C:\survey\" & FileName)

    ' Double-check if the right file is open. Output in Message Box.
    MsgBox "The Name of the Active Workbook is " & ActiveWorkbook.Name

    ' Copy data from file into an array
    For x = 1 To 3
        For y = 1 To 100
            data_arr(y, x) = Cells(y, x).Value
        Next y
    Next x

End Sub