как подсчитать общее количество строк во всех файлах во всех подпапках

Question

Я хочу использовать vba для подсчета всех строк во всех файлах во всех подпапках каталога и отображения их в ячейке.Как мне это сделать?

Я нашел код, работающий для подсчета строк в одном файле.но я не знаю, как построить цикл, чтобы применить это ко всем файлам во всех подпапках

Function countLF(fName As String) As Long
    Dim st As String
    Open fName For Input As #1: st = Input(LOF(1), 1): Close 

    countLF = Len(st) - Len(Replace(st, vbLf, "")) + 1
End Function

=countLF("c:\test.txt")