Function SnipString(rng)
x = Mid(rng, Application.Find(Chr(10), rng) + 1, Len(rng))
Loc = x
End Function


--
davidm
------------------------------------------------------------------------
davidm's Profile: http://www.excelforum.com/member.php...o&userid=20645
View this thread: http://www.excelforum.com/showthread...hreadid=387930