Hi Greg,

Sure there is. Change the line

Cells(i, "A").Value = oFldr.Path

to

Cells(i, "A").Value = oFldr.Name

--
HTH

Bob Phillips

"GregR" wrote in message
ups.com...
Bob, is there any way to amend the code to return only the folder name
rather than the whole path and folder?

Greg