VBA Code to prompt a user to print out

[dixielou]

I have some existing code that automatically prints a copy of a worksheet in my book

#code

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Sheets("NMR Form").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

#endcode

Instead of automatically printing, I would like the user to have the option to print or not print the sheet. I read through some of the other threads and didn't find anything like this. Is it possible?
Thank you
[/FONT]

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub dixielou()
   If MsgBox("do you want to print the sheet", vbYesNo) = vbYes Then
      Sheets("NMR Form").Select
      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
         IgnorePrintAreas:=False
   End If
End Sub

 

[dixielou]

Worked beautifully! Thank you Fluff

 

[Fluff]

You're welcome & thanks for the feedback