Estoy ejecutando un script VBA para contar el número de filas en cada archivo en una carpeta seleccionada y luego mostrarlo en un libro activo.

 Option Explicit
Sub CountRows()
    Dim wbSource As Workbook, wbDest As Workbook
    Dim wsSource As Worksheet, wsDest As Worksheet
    Dim strFolder As String, strFile As String
    Dim lngNextRow As Long, lngRowCount As Long

    Application.ScreenUpdating = False

    Set wbDest = ActiveWorkbook
    Set wsDest = wbDest.ActiveSheet

    strFolder = Dir(Range("C7").Value)
    strFile = Dir(strFolder & "*.xlsx")
    lngNextRow = 11
    Do While Len(strFile) > 0
        Set wbSource = Workbooks.Open(Filename:=strFolder & strFile)
        Set wsSource = wbSource.Worksheets(1)
        lngRowCount = wsSource.UsedRange.Rows.Count
        wsDest.Cells(lngNextRow, "F").Value = lngRowCount
        wbSource.Close savechanges:=False
        lngNextRow = lngNextRow + 1
        strFile = Dir
    Loop

    Application.ScreenUpdating = True

End Sub

Al elegir una carpeta, me gustaría utilizar el directorio que se inserta en una celda activa de WorkBook "C7" en lugar de escribir un directorio en un script. Traté de sustituir:

strFolder = "C:\Users\user\Desktop\"

con

 strFolder = Dir(Range("C7").Value)

Pero no funciona. Tal vez alguien tiene alguna idea? ¡Gracias!