"echo" i en macro?

Hej Eksperter

Har en simpel print macro (kan ses herunder), jeg kunne godt tænke mig at den efter man trykker på knappen så giver brugeren et lille vindue op hvori der bare står "blabla er printet" og så bare en luk eller ok knap, hvordan gøres dette?

Sub print02()
'
' print02 Makro
' Makro indspillet 06-04-2005 af x
'

'
    Sheets("Ark2").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Ark1").Select
End Sub