Dragonchaser
Registered User.
- Local time
- Today, 00:06
- Joined
- May 15, 2007
- Messages
- 31
Hey AP,
Getting upset with this one as it's probably extremely simple, and I'm just missing something.
I'm made a Click box Assigned to a macro that simply needs to add 1 to the number in the cell (always an Integer>0), then print the sheet, add 1 then print sheet again. It should do this a user specified number of times.
Here's my code:
Sub PrintForms()
Dim Serial As Integer
Dim Amount As Integer
Dim A As Integer
Amount = InputBox("Please enter the number of Meter Runs", "Number of Meter Runs")
Serial = Cell("C8")
For A = 0 To Amount
Serial = Serial + 1
ActiveSheet.PrintOut
Next A
End Sub
I'm a missing quotes or something or is this the wrong way to go about this all together?
Any aid you could give would be excellent
Thanks again,
DC
Getting upset with this one as it's probably extremely simple, and I'm just missing something.
I'm made a Click box Assigned to a macro that simply needs to add 1 to the number in the cell (always an Integer>0), then print the sheet, add 1 then print sheet again. It should do this a user specified number of times.
Here's my code:
Sub PrintForms()
Dim Serial As Integer
Dim Amount As Integer
Dim A As Integer
Amount = InputBox("Please enter the number of Meter Runs", "Number of Meter Runs")
Serial = Cell("C8")
For A = 0 To Amount
Serial = Serial + 1
ActiveSheet.PrintOut
Next A
End Sub
I'm a missing quotes or something or is this the wrong way to go about this all together?
Any aid you could give would be excellent
Thanks again,
DC
Last edited: