FileDialog Hidden Folder

Üdv!
Írtam az Excel-hez egy VBA rutint, ami fájlokat listáz egy adott könyvtárból.
A baj az, hogy a C:\Windows\Fonts nem sima könyvtár hanem a rendszer része, és ezért rejtett, vagyis nem tudom kiválasztani a rutinom futtatásakor.
Tud valaki segíteni?

 With Application.FileDialog(msoFileDialogFolderPicker)
   If .Show = -1 Then ' if OK is pressed
     sFolder = .SelectedItems(1)
   End If
 End With
    
 If sFolder <> "" Then
  .....
  .....
End If