macro help please

[Guest]

Hi i'm usong this macro
"Sub Button2_Click()
Sheets("Sheet1").Range("E10").Value = _
Sheets("Sheet1").Range("E10").Value + 1
ActiveSheet.Range("Y4:AA12").PrintOut preview:=False
End Sub"
Which adds 1 to a count when the button is pressed what i want it to do is
add a changing number from a cell, and then reset back to 1,
Is it possible please
Mike

 

[Dave Peterson]

Maybe.....

Sub Button2_Click()
dim myNumberToAdd as double
Dim myExistingNumber as double

myexistingNumber = Sheets("Sheet1").Range("E10").Value
mynumbertoadd = Sheets("Sheet1").Range("x99").Value

Sheets("Sheet1").Range("E10").Value = _
Sheets("Sheet1").Range("E10").Value + mynumbertoadd

'sheets("sheet1") instead of activesheet????
ActiveSheet.Range("Y4:AA12").PrintOut preview:=False

sheets("sheet1").range("e10").value = myexistingnumber

End Sub