macro per eliminare lettere

[Elric]

raga data l'intera colonna A..io vorrei eliminare da ciascun record tutte le prime 3 lettere..è possibile.???.ciao e grassie

[cabal]

Sub Macro1()
Dim stringa As String
Dim lun As Long
For a = 1 To 65536
Range("A" & a).Select
If ActiveCell = "" Then Exit For
lun = Len(Range("A" & a).Value)
stringa = Mid(Range("A" & a).Value, 4, lun)
ActiveCell = stringa
Next
End Sub

ciao

[Elric]

grassie millee ^___^