I have the following code that prints out different sheets.
What code should I use that will make a message pop up
asking "Are you Sure you want to Print Yes/No" to prevent someone pressing
the print button in error?

Thanks in advance of any favourable reply.

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Dan").PrintOut Copies:=1, Collate:=True
Sheets("Customer Profile").Range("newused") = 1
Sheets("Customer Profile").PrintOut Copies:=1, Collate:=True
If Sheets("Customer Profile").Range("pxselect") 0 Then
Sheets("Handback").PrintOut Copies:=1, Collate:=True
Sheets("New").Range("cuscopynew") = "CUSTOMER COPY"
Sheets("New").PrintOut Copies:=1, Collate:=True
Sheets("Dan").PrintOut Copies:=1, Collate:=True
Sheets("Customer Profile").PrintOut Copies:=1, Collate:=True
End If
Application.ScreenUpdating = True
End Sub