VBA-Excel: Henta dataarray fra enden fil ind

Function IsOpened(DataFileName As String)

Dim objOpenWB As Workbook, objWB As Workbook

' tjek om fil allerede er åben
  For Each objOpenWB In Application.Workbooks
    If objOpenWB.Name = DataFileName Then
      Set objWB = objOpenWB ' registrerer at jeg allerede har filen åben
      DataFileName = objOpenWB.Name
      Exit For
    End If
  Next

If objWB Is Nothing Then
IsOpened = False
Else
IsOpened = True
End If

End Function

  Windows("Produktionsplan.xls").Activate

    If CloseAgain = True Then ' hvis jeg åbende produktionsplan-filen i baggrunden, så satte jeg variablen CloseAgain til True, og derfor skal jeg lukke den igen. men først vil jeg lige gemme de data jeg hentede i Names. Her første gang bruger jeg syntaxen ThisWorkbook.Names.Add, men det er kun første gang jeg skal oprette navnet, næste gang skal jeg kun opdatere værdierne i Names. Det vil jeg gøre ved at bruge samme syntax, men uden .Add
    ThisWorkbook.Names.Add Name:="FermSlutRowNrML", RefersToR1C1:=FermSlutRowNr
    ThisWorkbook.Names.Add Name:="FermStartDataML", RefersToR1C1:=FermStartData
    ThisWorkbook.Names.Add Name:="FermSlutDataML", RefersToR1C1:=FermSlutData
    ThisWorkbook.Names.Add Name:="FermDeviceDataML", RefersToR1C1:=FermDeviceData
' nu har jeg gemt data i nams under samme navne som jeg brugte til mine arrays før.
    Workbooks(OpenWb).Close False    ' lukker Produktionsplan igen
    MsgBox "Data er nu gemt i Names, og planen er lukket igen"
    Application.ScreenUpdating = True
    End If

    With ThisWorkbook.Names("FermSlutRowNrML")
      .RefersToR1C1 = FermSlutRowNr
    End With

    ThisWorkbook.Names("FermSlutRowNrML").RefersToR1C1 = FermSlutRowNr

="327A";"325A";"327A";"325A";"327A";"325A";"327A";"325A";"327A";#N/A;#N/A;#N/A}

FermStartData(i, 1)

FermStartData(i)

Sub tstArray()
Dim FermStartData As Variant
FermStartData = Array(40, 46, 51, 57, 62, 68, 73, 79, 84, 90)

'For i = 1 To UBound(FermStartData, 1)
For i = 1 To UBound(FermStartData)

MsgBox FermStartData(i)
Next i
End Sub