Hi,
When you run Auto_Open you and the user responds NO ultimately The code will
return to that routine at the line after
If ans = vbNo Then Call Begin_Week
The next line is
Call Daily
So if the user presses NO then both macros are called and I doubt that's
what you intend.
If you put both calls in an If loop then when execution returns to auto_open
it will be after the end if so that won't happen
Sub auto_open()
Dim ans As Long
ans = MsgBox("Is this the end of the Week?", vbYesNo)
If ans = vbNo Then
Begin_Week
Else
Call Daily
End If
End Sub
Mike
"Carrie_Loos via OfficeKB.com" wrote:
This is perplexing.........I have three macro's (I removed all the 'work'
portion of the code to shorten it) but basically, If I follow the path of
auto_open, VbNo then Beginning_Week, vbYes, I get to the macro Daily but when
I get to the bottom of the sub Daily, it doesn't end. For some reason it
jumps to other End Sub's code line and then starts executing lines of code
again. I have tried many different configurations without success.
Any ideas? I wasn't aware that "End Sub" would not end the code execution???!!
! Help and many thanks.
Carrie
Option Explicit
Sub auto_open()
Dim ans As Long
' If user answers yes then follow code below if user answers no then envoke
macro asking if it is the beginning of the week
ans = MsgBox("Is this the end of the Week?", vbYesNo)
If ans = vbNo Then Call Begin_Week
' Saves Ending Inventory Balance then envokes macro for Daily Input
Call Daily
End Sub
Sub Begin_Week()
Dim ans As Long
' If user answers yes then follow code below if user answers no then envoke
macro for Daily Input
ans = MsgBox("Is this the beginning of the Week?", vbYesNo)
If ans = vbNo Then Call Daily
' Clear contents of all Data Entry Sections
' Copy Ending Inventory from Last week to new worksheet
' Save Changes
' Envoke Macro for Daily Input
Call Daily
End Sub
Sub Daily()
Dim ans As Long
' If user answers yes then follow code below if user answers no then envoke
macro for Daily Input
ans = MsgBox(Prompt:="Ready for Daily Input?", Buttons:=vbYesNo)
If ans = vbNo Then
Call auto_open
End If
€˜Begin Input
End Sub
--
Message posted via http://www.officekb.com