[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?