have you tried?
=left(a2,15)
or
Sub leftif()
For Each c In Selection
c.Value = Left(c, 5)
Next

--
Don Guillett
SalesAid Software

"Iservthee" wrote in message
...
I want to keep the first 15 characters in a column and delete everything
after those characters.