Открыть файл на основе последней версии и подсчета строк

Question

Я хочу открыть последнюю версию указанного файла c в папке. Затем я wi sh, чтобы подсчитать общее количество строк и вернуть значение в ячейку (K, 2) в этой книге. Вот что у меня получилось:

Sub CountRows()


    Dim SourceLocation As String
    Dim EndLocation As String
    Dim File As String
    Dim strdays As Integer
    Dim FSO As Object

    Dim f, f1, fc


    strdays = 2
    SourceLocation = "H:\location\"



    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set f = FSO.GetFolder(SourceLocation)
    Set fc = f.Files
    Dim LastRow As Long

    For Each f1 In fc
        If DateDiff("d", f1.DateLastModified, Date) < strdays And LCase(Left(f1.Name, 6)) = "myFile" Then
            Workbooks.Open f1
            LastRow = f1.Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
            f1.Worksheets("Sheet1").Cells(2, 20).Value = LastRow

    Exit For

End If

Next

End Sub

В данный момент эта функция открывает файл, но останавливается, когда доходит до подсчета количества строк.