take off the first two letters

[willz99ta via OfficeKB.com]

Howdy folks,

I am looking for a way to take off the first two letters off of a list of
excel records. There are an unknown about of excel records AE there could be
2 or 15000 records.

Thanks for your help - good night and good luck,
Will the Texan

 

[somethinglikeant]

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