DK,
Comment out the lines I added to Jim's code and uncomment his lines. This
will give you the folder only.

As for the error you're getting, I suspect that not all the path data values
are structured the same. I'll play with this and post back, but I think if
you add Rick's suggestion to the If... statement using the AND operator it
might be what you need. For example:

If Not .Cells(r, 1) = "" And UBound(var) 2 Then

GS
---