somethinglikethis:-

Sub ShortenByTwo()

Range("A1").select
Do Until IsEmpty(ActiveCell)
ActiveCell.Value = (mid(Activecell.value,3,len(activecell.value)-2)
Activecell.offset(1,0).select
Loop

Range("A1").select
End Sub



'somethinglikeant