User Forms
Donna,
In the thisworkbook add the following, or amend if you have it already:
Private Sub Workbook_Open()
If MsgBox(Me.Name, vbOKCancel) = vbOK Then
UserForm1.Show
End If
End Sub
Then on your form code for the two buttons (here called commandbutton1 and
commandbutton2) insert the following code. Note the moudule 1 code may not
work change it to the subroutine name.
Option Explicit
Private Sub CommandButton1_Click()
ThisWorkbook.Worksheets.Add
module1 ' <<<<<< this is the subroutine????
Me.Hide
Unload UserForm1
End Sub
Private Sub CommandButton2_Click()
Me.Hide
Unload UserForm1
End Sub
'------
Save and run the worksheet.
--
Hope this helps
Martin Fishlock
Please do not forget to rate this reply.
"Donna C" wrote:
On workbook open I have a message box telling the user
what workbook they are in.
I have two questions: When they click "ok" on the message box
I want the user form to open.
The user form is basic with Yes/No boxes.
How do I code for:
When yes is clicked insert new worksheet and run module 1,
when no is clicked simply open the workbook as is for the user to use??
Thanks in advance
Donna C.
|