You copied the code that you put behind the worksheet to the General module and
you copied stuff that wasn't needed. Try copying and pasting the original code.


mceder1 wrote:

This is what i put in for the code

Sub BOption Explicit
Sub PrintMe()
With ActiveSheet
If IsNumeric(.Range("I3").Value) Then
.Range("I3").Value = .Range("I3").Value + 1
.PrintOut preview:=True
Else
Beep
MsgBox "I3 isn't a number!"
End If
End With
End Sub
utton1_Click()

End Sub

Then for the preview what do I need to change it to.

--
Matt

"Dave Peterson" wrote:

Time to share what you pasted into that code module.

And to indicate what line caused the error.

And just a reminder, the original code had Preview:=true to save some trees.
You'll want to change this when you're done testing.

mceder1 wrote:

Dave
got the button to work. Now I get an error that states Compile error:
expected : end of statement. What is this?
--
Matt

"Dave Peterson" wrote:

Delete that button (I think you used the wrong one)

Then View|Toolbars|show the Forms toolbar
And use the button from that toolbar.



mceder1 wrote:

-- I donot get a assign macro command. I may not be getting to the right
forms command. I am new to macros if you couldnt tell
Matt

"Dave Peterson" wrote:

Put the code in a general module--not behind the worksheet and not behind the
ThisWorkbook module.

Then show the Forms toolbar.
Plop a button from that toolbar onto the worksheet.

You'll be prompted to assign the macro--choose this macro.

If you have a button from the Forms toolbar already on the worksheet, you can
rightclick on it and choose Assign Macro.

Remember that this is the button from the Forms toolbar--not the commandbutton
from the Control toolbox toolbar.

mceder1 wrote:

Dave
I created a button and copied your code from below. I guess that I dont
know how to put the button on the workbook.
--
Matt

"Dave Peterson" wrote:

I'd create a dedicated macro and then put a button from the Forms toolbar onto
that sheet and assign the macro to this button.

Option Explicit
sub PrintMe()
with activesheet
if isnumeric(.range("I3").value) then
.range("I3").value = .range("I3").value + 1
.printout preview:=true
else
Beep
msgbox "I3 isn't a number!"
end if
end with
end sub

mceder1 wrote:

I would like to have excel auto number a new work sheet every time I print a
new sheet. The form that I have created has the page numbers in cell I3 and
only has to number from 7 to infinity.
--
Matt

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson


--

Dave Peterson


--

Dave Peterson