Macro Exit or Link
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
|