If I have interpretted your request properly.

Sub Auto_Open()
Dim MyMsgBox

MyMsgBox = MsgBox("Script line 1." & vbCrLf & _
"Script line 2", _
vbOKCancel + vbExclamation, "REMEMBER ...")


Select Case MyMsgBox
Case vbOK
'Your code here for OK
MsgBox "User selected OK"
Case vbCancel
MsgBox "User selected cancel"
Exit Sub
End Select


End Sub

--
Regards,

OssieMac


"StargateFan" wrote:

I can't find the answer to this one; perhaps I'm googling/searching
for the wrong search terms.

I have an AutoOpen script that works just great, but I need to string
at least one other message to it after pressing OK. (And cancel would
stop the boxes, naturally.)

Sub Auto_Open()
MyMsgBox = MsgBox("Script line 1." & vbCrLf & _
"Script line 2", _
vbOKOnly + vbExclamation, "REMEMBER ...")
End Sub

How could I tack on another message box, or perhaps 2, to the above?

Thank you! :oD