Macro para imprimir una hoja de excel

Para experto Octavohokage, el código que me enviaste funciona bien, solamente que cuando le doy "si" para imprimir me aparece el mensaje de "usted a cancelado la impresión" y quiero que me ponga "imprimiendo" o algo por el estilo.

Sub Impresion_de_reporte()
' Impresion_de_reporte Macro
' Imprimir hojas
' Esta parte te pregunta si deseas imprimir con el evento vbYesNo y coloca tu
respuesta en la variable Resp
Resp = MsgBox("Esta seguro de realizar la impresión", vbYesNo,
"Imprimir")
' Luego con If valido tu respuesta si fue Yes o No y dependiendo de eso sigo
con la impresión o me salto esos códigos y te aviso que has cancelado la
impresión.
If Resp = Yes Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveCell.Offset(0, 1).Range("A1").Select
Else
MsgBox "Usted ha cancelado la impresión"
End If
End Sub

Saludos y gracias