Thanks Norman

Tim

"Norman Jones" wrote in message
...
Hi Tim,

Just to alert you to a minor typo:

GetLast = Split(sPath, "\")(UBound(Split(sPath, "\")))

should be:

GetLastPart = Split(sPath, "\")(UBound(Split(sPath, "\")))


---
Regards,
Norman