Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
First I think you want to use the Worksheet_Change event not
Worksheet_SelectionChange. Then you want to disable events inititally, not enabled them (they are enabled or this sub would not be called). Then for the go to you'd want this: Application.Goto Worksheets("Home").Range("F8") Also drop the ThisWorkbook before Application.Quit. The latter is all you need. You might want to add a ThisWorkbook.Saved = True before quiting so there is no "save changes" prompt. Jim "Daniel R. Young" wrote in message ... I am creating a macro that when someone agrees the macro will take someone to the home page, if they say no, then a message will come up "saying something" and will exit from the workbook. This is what i have so far: Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo ws_exit: Application.EnableEvents = True If Target.Address = "$C$15" Then If Me.Range("C15").Value = "Yes" Then Worksheets("Home").Range "F8" End If If Me.Range("C15").Value = "No" Then ThisWorkbook Application.Quit End If End If ws_exit: Application.EnableEvents = True End Sub Can someone assist me? Thank you, Dan |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Run macro on exit | Excel Discussion (Misc queries) | |||
macro wants to exit excel | Excel Discussion (Misc queries) | |||
Exit via macro only? | Excel Discussion (Misc queries) | |||
on exit macro | Excel Discussion (Misc queries) | |||
Run Macro on cell exit | Excel Programming |