>>663
Range("A1").Value = Range("A1").Value + 1