Button with macro to add 1 to a cell in another sheet

[Bolter LAC]

I have a button on Sheet 2 with the following macro.

Sub Button1_Click()
   Range("B3").Value = Range("B3").Value + 1
End Sub

I want to change this so that cell B3 in Sheet 1 increases by one and not the worksheet with the button. What do I have to add to the code to facilitate this?

Thanks

 

[hiker95]

Bolter LAC,


The following code will add 1 to the present value in worksheet Sheet1, each time the button in worksheet Sheet2 is pressed.


Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

Sub Button1_Click()
   Worksheets("Sheet1").Range("B3").Value = Worksheets("Sheet1").Range("B3").Value + 1
End Sub

 

[VoG]

Try

Sub Button1_Click()
With Sheet1
   .Range("B3").Value = .Range("B3").Value + 1
End With
End Sub

 

[Bolter LAC]

Thanks Hiker95,

Just what I wanted. Thanks VoG also.


Craig