Cell value equals last four charecters

[mohd21uk via OfficeKB.com]

I am using a macro to validate a form. I would like cell A1 to equate to the
last four charecters of cell a4. For e.g if cell a1 is 552004k00 cell a4
should have the value 4k00. I would be grateful if you could provide this to
me in VBA code.

Thanks

 

[Ardus Petus]

range("A1").value = right(Range("A1").Value,4)

HTH

 

[Gary''s Student]

Try:

Range("A4").Value = Right(Range("A1").Value, 4)