anular orden de msgbox?

[3pies]

Código:

msbTexto = "Vas a imprimir einnnn? estás seguro?"
msbTitu = "Hola"
msbOpc = vbOKCancel + vbQuestion + vbDefaultButton1
msbRespuesta = MsgBox(msbTexto, msbOpc, msbTitu)
Select Case msbRespuesta
    Case vbOK 'Aceptar
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Case vbCancel 'Cancelar
        'Si quieres que haga algo, ponlo aquí,
        'y si no quieres que haga nada, quita este "case".
        'Si decides quitarlo, en lugar de usar un select case,
        'yo usaría un condicional (IF), de esta forma:
        'If msbRespuesta = vbOK Then ActiveWindow.SelectedSheets.PrintOut Copies:=1
        'así nos ahorramos escribir líneas
End Select