truncate numbers in column vba nacro

[instanceoftime]

Having a brainfart at the moment

I'm looking to use a macro to truncate the all the numbers in column A to the last 3 digits 1234567 = 567

=RIGHT(A2,3)

How can I do this to the whole column in code?

 

[Fluff]

How about

Sub instanceoftime()
   With Range("A2", Range("A" & Rows.Count).End(xlUp))
      .Value = Evaluate(Replace("If(@="""","""",right(@,3))", "@", .Address))
   End With
End Sub

 

[instanceoftime]

How about

Sub instanceoftime()
   With Range("A2", Range("A" & Rows.Count).End(xlUp))
      .Value = Evaluate(Replace("If(@="""","""",right(@,3))", "@", .Address))
   End With
End Sub

Awesome Fluff

 

[Fluff]

You're welcome & thanks for the feedback.