not without another dot

--
Don Guillett
SalesAid Software

"bxvang" wrote in
message ...

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 Sub


--
bxvang
------------------------------------------------------------------------
bxvang's Profile:
http://www.excelforum.com/member.php...o&userid=35135
View this thread: http://www.excelforum.com/showthread...hreadid=548932