bestandsnamen uit verkenner in excel lijst ok behalve namen met enkel 0

[littlepete]

hallo
puzzelaar als ik ben heb ik een vba'tje geschreven om alle bestanden uit mijn map met gepersonaliseerde nummerplaten te kopieren naar excel...
dat gaat zeer snel en het aantal klopt ook... hoera !
maar:
de nummerplaten die enkel nullen bevatten (bv. 000 00000 00 0 00000000 ...) worden in excel gezet als 0, nochtans is die kolom ingesteld als tekst...
is er een manier om dit op te lossen?
mooie dag nog !

Sub list()
cells(1,1).select
Dim naam as string
naam = Dir("D:\onedrive\my stuff\mijn media\mijn afbeeldingen\verzameling nummerplaten\" & "*.*")
Do While Len(naam) > 0
ActiveCell.Formula = naam
ActiveCell.Offset(1, 0).Select 
naam = Dir()
Loop
End sub

 

[Candyman8019]

Try changing this line:
ActiveCell.Formula = naam

to:
ActiveCell.Formula = "'" & naam

This will prefix the value of naam with '