Is it possible to have a print button in a MsgBox, or do I have to use a form?

Thanks for suggestions.

Frank

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

Private Sub CommandButton1_Click()
Var = MsgBox("print..?", vbYesNo)
If Var = vbYes Then
' print macro code here
Else
Exit Sub
End If
End Sub


Mangesh


--
mangesh_yadav
------------------------------------------------------------------------
mangesh_yadav's Profile: http://www.excelforum.com/member.php...o&userid=10470
View this thread: http://www.excelforum.com/showthread...hreadid=376248