individuelle Ausdrücke mit dem Wort "Entwurf"

Sub Drucken_Anzahl()
Dim Kopien As Variant
If MsgBox("Drucken?", vbYesNo, "Drucken") = vbYes Then
Do
Kopien = InputBox("Anzahl der Kopien", "Drucken", 1)
If StrPtr(Kopien) = 0 Then Exit Sub
If IsNumeric(Kopien) Then Exit Do
MsgBox "Bitte eine Zahl eingeben!", vbExclamation, "Hinweis"
Loop
ActiveSheet.PrintOut From:=1, To:=1, Copies:=CLng(Kopien)
End If
End Sub