Yes, it works perfectly. Thanks!
For reference, here is another code that does the same thing.
Sub add_one()
With Activesheet.Range("A1")
.Value = .Value + 1
End With
End Su
--
bxvan
-----------------------------------------------------------------------
bxvang's Profile:
http://www.excelforum.com/member.php...fo&userid=3513
View this thread:
http://www.excelforum.com/showthread.php?threadid=54893