Private Sub CommandButton1_Click()

Sheets("Week 1").Range("B3") = Sheets("Week 1").Range("B3") + 1

End Sub


--
Kaak
------------------------------------------------------------------------
Kaak's Profile: http://www.excelforum.com/member.php...fo&userid=7513
View this thread: http://www.excelforum.com/showthread...hreadid=392094