Defining a Label

[Richard]

I'm trying to send code from a CommandButton2 to Workbook Open. Example:
If Commandbutton2 is "clicked", (which is on a UserForm) then GoTo Workbook
Open() Inputagain: Exit Sub

[davesexcel]

Just copy the inputagain:macro and paste in the command button code, don't send it back to workbook open :

[Richard]

I need to some how send a message to my other code which is in the Workbook
open() and tell it to Exit Sub before the other code is executed. Example: If
Commandbuttonw2 is clicked then go to Inputagain which will Exit Sub before
the rest of the code is executed. Don't want anything executed after
"Inputagain" if Commandbutton2 is clicked.
L = Month(Date) * 10000 + Year(Date)
M = GetSetting("Demo", "Drafts", "Month", 0)
If L = M Then Exit Sub
If Month(Date) = 4 Then
If Day(Date) >= 24 And Day(Date) < 27 Then
UserForm1.Show
Inputagain: Exit Sub 'Here is the problem!
If MsgBox("Do you qualify for Bank Day?", _
vbYesNo) = vbYes Then
MsgBox ("1 Day has been added to your Bank Days")
Call SaveSetting("Demo", "Drafts", "Month", L)
Worksheets("Vacation").Range("C3").Value = 1
Else
Worksheets("Vacation").Range("C3").Value = 0
End If
End If
End If




"davesexcel" wrote:

>
> Just copy the inputagain:macro and paste in the command button code,
> don't send it back to workbook open :
>
>
> --
> davesexcel
> ------------------------------------------------------------------------
> davesexcel's Profile: http://www.excelforum.com/member.php...o&userid=31708
> View this thread: http://www.excelforum.com/showthread...hreadid=516639
>
>