This is the key code:
a = Replace(ActiveCell.Value, "s", "")
the rest is up to you!
--
raypayette
------------------------------------------------------------------------
raypayette's Profile:
http://www.excelforum.com/member.php...o&userid=29569
View this thread:
http://www.excelforum.com/showthread...hreadid=570980