You could use code like the following:

Dim Rng As Range
For Each Rng In Range("A1:A10")
If Len(Rng(1,2).Text) < 0 Then
Rng.Value = Left(Rng.Text,3) ' truncate to 3
characters
End If
Next Rng


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com





wrote in message
ups.com...
I have the need to trucate the contents of my cells regardless
of
whether or not there is content in the adjoining cell. Can
anyone tell
me how to do this?