Cacher is the code snippet organizer for pro developers

Option Explicit

Sub GetAnswer()
Dim Ans As Integer

    Ans = MsgBox("Start printing?", vbYesNo + vbExclamation)
        Select Case Ans
            Case vbYes
                ActiveSheet.PrintOut
            Case vbNo
                MsgBox "Printing cancelled"
        End Select
        
End Sub

'+ vbExclamation 
'show the icon in msgbox. there are other icons available as well.