Funktion geht erst nach vorherigem goto

Function GetValue(Row As Integer, col As Integer)
GetValue = Cells(Row, col)
End Function

Sub Auswertung()
Dim SourceWb As Workbook
Dim TargetWb As Workbook
Dim AkWks As Worksheet
Dim Wks As Worksheet
Dim arr As Variant
Dim Suchfile As String 'Excelfile Quelle
Dim StrDatum As String
Dim Datum As Date
Dim C As Range
Dim R As Range
Dim Fund As String
Dim Zzeile As Integer
Dim Zspalte As Integer
Dim SuchBereich As Range
Dim Jahr As String
Dim Mon As String
Dim Tag As String
Dim ListArray(366, 13) As Variant
Dim Liste As Variant
Dim Ueberschr(13) As Variant
Dim ArrSpalte As Integer
Set TargetWb = ActiveWorkbook 'Ziel definieren = dieses Dokument
Set Ziel = TargetWb.Worksheets("Auswertung") 'in welches Blatt werden die Daten geschrieben?
suchfolder = TargetWb.Worksheets("Start").Range("Pfad").Value 'Ordner mit den zu Dateien
Suchfile = TargetWb.Worksheets("Start").Range("Datei").Value 'Dateiname
Set SourceWb = Workbooks.Open(suchfolder & "\" & Suchfile, ReadOnly) 'Quelldatei komplett
For Each Wks In SourceWb.Worksheets
Set SuchBereich = Wks.Range("B6:AF61")
Application.Goto SuchBereich
For Each C In SuchBereich.Columns
Tag = GetValue(Row:=1, col:=C.Column) 'Tag aus der Zelle auslesen -- geht irgendwie  _
nur nach vorherigem Application.Goto?