Thanks I got it working...I needed to the number format before the other jazz

Thanks,
Will


willz99ta wrote:
>Nope it's still not working. Here is the code I am using right now:
>
><code>
>
>Sub ShortenByTwo()
>
>Do Until IsEmpty(ActiveCell)
> If Mid(ActiveCell.Value, 1, 1) Like "[A-Za-z]" And Mid(ActiveCell.Value,
>2, 1) Like "[A-Za-z]" Then
> ActiveCell.Value = (Mid(ActiveCell.Value, 3, Len(ActiveCell.Value) -
>2))
> End If
> ActiveCell.NumberFormat = "@"
> ActiveCell.Offset(1, 0).Select
>Loop
>
>End Sub
>
></code>
>
>Thanks again,
>Will

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200603/1