You can do this with worksheet functions (without using VBA).
If your data is in column A, then in another column, use this formula in the second row:
[COLOR=blue white]=left(a2,4)[/color]
[tt]_____
[blue]-John[/blue][/tt]
Help us help you. Please read FAQ181-2886 before posting.