Array i VBA excel

Option Explicit

Dim Ws As Worksheet
Dim Area As Range
Dim Arr() As Variant
Dim MyRow As Integer, MyColumn As Integer

Sub FindTodaySimple()
    Set Ws = ActiveSheet
    Set Area = Rows("3:3") ' førsterække
    Set Area = Range(Area, Area.End(xlDown)) 'Udvider området til sidste række mrd indhold
    Arr = Area 'fylder området ind i et array
    For MyRow = LBound(Arr, 1) To UBound(Arr, 1) 'gennemtraver alle rækker
        If Arr(MyRow, 1) = Date Then
            For MyColumn = LBound(Arr, 2) + 1 To UBound(Arr, 2) 'gennemtraver alle kolonner (ikke kolonne 1) i aktiv række
                mdsgbox "Kolonne " & MyColumn & "indeholder: " & Arr(MyRow, MyColumn)
            Next MyColumn
        End If
    Next MyRow
End Sub

Sub FindTodaySimple()
Dim TodayRow As Integer
Dim UserColumn As Integer
Dim InitRowArray As Variant

TodayRow = FindDateRowInCol(Date, DATECOL) ' så er datorækken fundet

'Vi prøver at finde brugerens kolonne

InitRowRng = Range(Cells(INITSROW, INITSTARTCOL), Cells(INITSROW, PLANSLUTCOLUMN)).Address
InitRowArray = Range(InitRowRng)

' løber initialer igennem og sammenligner
  MsgBox "Will run from " & LBound(InitRowArray, 2) & " to " & UBound(InitRowArray, 2)
 
  For i = LBound(InitRowArray, 2) To UBound(InitRowArray, 2)
    If UCase(Right(InitRowArray(1, i), 4)) = "FOLJ" Then
  UserColumn = i + 2
      Exit For 'afslutter gennemløb

    End If
  Next i

  Cells(TodayRow, UserColumn).Select

End Sub