[VBA]EXCEL CERCA FILE ha un limite di risultati'

[Max_p_72_n]

Buonasera a tutti
devo contare i file di una cartella, ho usato questo codice:

Sub ElencaFile()
Dim i As Integer, f As String, miapath As String
miapath = "\\10.xxxx\tecnico\MOP\" 
f = Dir(miapath & "*.xls")
If f = "" Then Exit Sub
While f <> ""
i = i + 1
Cells(i, 1) = f
f = Dir
Wend
End Sub

mi ha restituito un lenco di 6296 file, ma nella cartella ne ho 8755!
e' un limite di excel non andare oltre quel numero?

[Max_p_72_n]

scusate, ho sbaglaito io.
Ho tre cartelle da controllare che differiscono solo per una lettera, ero convinto di controllare la cartella "F" mentre nella macro c'era la "P".
Caso risolto: NESSUN LIMITE
Ho provato anche su una cartella di 19770 file e li ha trovati tutti.