InputBox til udskrivning - Anuller-knap virker ikke

Private Sub CommandButton1_Click()
Dim navn As String
svar = InputBox("Indtast bilagsnr.:", "Bilagsnummer")
If svar <> Empty Then
navn = "Bilag " & svar
Range("H1") = navn
ActiveSheet.PrintOut
End If
End Sub

et tryk på annuler returnere bare en tom streng. Men din kode kører jo bare videre, uanset om variablen svar indeholder en tom streng eller ej - det forhindrer du f.eks. som kabbak viser det.

Jeg undgår altid inputboxen, fordi den er så elendig. Du kan lave en bedre selv. F.eks. kan brugeren af din macro jo indtaste "pølsemad" som bilagsnummer - og det er jo for åndsvagt ;o)

Lige for at kommentere martins forslag, så er der er to typer inputbokse i excel. Den der bliver brugt her og så application.InputBox.
Den sidste udmærker sig ved at at være noget bedre, da det her er muligt at bestemme den type af data man kan taste/vælge ind.
Formler, Tekst, Logiske værdier, cellereferencer (ranges), fejlværdier, eller arrays

ok :o)

Jeg forstår ikke helt hvad I skriver, men hovedsagen er, at det virker, så Kabbak, vil du "Smide" et svar, så du kan få dine point!

et svar ;-))