S
StargateFanFromWork
Here is code that works in all other workbooks when it's the "Auto_Open"
script, but doesn't work when called from another script (and other vb code
works fine in same scenario):
************************************
Sub PrintOnColouredPaper_Ask()
MyMsgBox = MsgBox("Put either pink or green paper into the printer.",
vbOKCancel + vbExclamation, "Print?")
If MyMsgBox = 1 Then
Application.Dialogs(xlDialogPrint).Show
End If
End Sub
************************************
What am I doing wrong, pls?
Thank you! D
script, but doesn't work when called from another script (and other vb code
works fine in same scenario):
************************************
Sub PrintOnColouredPaper_Ask()
MyMsgBox = MsgBox("Put either pink or green paper into the printer.",
vbOKCancel + vbExclamation, "Print?")
If MyMsgBox = 1 Then
Application.Dialogs(xlDialogPrint).Show
End If
End Sub
************************************
What am I doing wrong, pls?
Thank you! D