You could use a Msgbox

Dim ans

ans = MsgBox("Print?", vbYesNo)
If ans = vbYes Then
ActiveSheet.PrintOut
End If

but a form would be neater.


--
HTH

Bob Phillips

"Frank" wrote in message
...
Is it possible to have a print button in a MsgBox, or do I have to use a
form?

Thanks for suggestions.

Frank