Thank you thank you thank you!!!

Worked perfectly!

Application.Goto Reference:=Worksheets("Sheet1").Range
("B8")
ActiveCell.Value = Left(ActiveCell.Value, 4)

Shauna
-----Original Message-----
activecell.Value=left(activecell.Value,4)

HTH
Paul
----------------------------------------------------------
----------------------------------------------------
Be advised to back up your WorkBook before attempting to
make changes.
----------------------------------------------------------
----------------------------------------------------

.