Thanks Bob your always a great help, can you make it so it prints the number
before it resets it to 1 please

"Mike" wrote:

Hi i'm using the following macro to print a range and add 1 to a cell what i
need it to do is add a number from a cell and then reset to 1, anyone help
please

Sub Button2_Click()
Sheets("Sheet1").Range("E10").Value = _
Sheets("Sheet1").Range("E10").Value + 1
ActiveSheet.Range("Y4:AA12").PrintOut preview:=False
End Sub