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