I've already posted the answer (below) to your question.

Function StripIt(sWhat)
Dim sRes
sRes = Split(sWhat, "/")
StripIt = sRes(UBound(sRes))
End Function

As an FYI, to view answers to your posts in future, click the plus (+) sign
next to it...

--

Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

[ Post a follow-up to this message ]