List File Names From Folder

Hi

try changing

Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = filess

to

Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = curdir & "\" & filess

rylo