Need Warning Message for User Error

[drmingle]

I want to issue a user warning message if they attempt to run a macro when on another tab in the workbook.

This works when a user is on the wrong tab:

Sub Intro()
  On Error GoTo ErrMsg
  If ActiveWorkbook.Worksheets("Outdoor - Baseline") Is ActiveSheet Then IntroUpdate.Show
ErrMsg:
MsgBox ("User must have Outdoor - Baseline selected."), , ".:User Error:."
End Sub

However, it shows the warning message when they are also on the right tab as well.

I don't want it to show the msg when it is on the correct tab.

 

[VoG]

Try

Sub Intro()
  On Error GoTo ErrMsg
  If ActiveSheet.Name = "Outdoor - Baseline" Then
    IntroUpdate.Show
    Exit Sub
End If
ErrMsg:
MsgBox ("User must have Outdoor - Baseline selected."), , ".:User Error:."
End Sub

 

[Andrew Poulsom]

Firstly your code isn't generating an error and secondly, even if it did, all of it will run because you are missing Exit Sub before ErrMsg:. Try:

Sub Intro()
    If ActiveSheet.Name = "Outdoor - Baseline" Then
        IntroUpdate.Show
    Else
        MsgBox ("User must have Outdoor - Baseline selected."), , ".:User Error:."
    End If
End Sub