How to Create a Message using Macro

H

HausMaus

Hi

I would like to do as follows:

I want to create a Macro which beeps and displays a message
(e.g. "Put a sheet in the printer before you continue")
after I hit a button. Which code should I use in the Macro?
So what's supposed to happen is this:

1. Hit button "Print"
2. BEEP! <message:> Put a sheet in the printer before you continue!
3. Hit the button "continue"

My topic concerns step 2. Thanks for your help!

Pau
 
H

HausMaus

-OK, thanks, almost there! What I've got is 2 sheets called "INPUT" en
"OUTPUT". If I hit OK, it must print "OUTPUT" and then afterwards
return to "INPUT" cell A1. If I hit cancel, everything's cancelled
ofcourse. So far I've got the following:-

Sub printing()
If MsgBox("Place a sheet in the printer. Do you want to continue?",
vbOKCancel, _
"WARNING") = vbCancel Then Exit Sub
If Answer = vbCancel Then Exit Sub
If Answer = vbOK Then
Sheets("OUTPUT").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1,
Collate _
:=True
Sheets("INPUT").Select
Range("A1").Select
End Sub

-Can you correct this for me please? Thanks!-
 
Top