Case Statment in Err trapping

[lwm]

I am having trouble with the code in 2:

when I add this code:
ResPonse = MsgBox(prompt:=Msg, Buttons:=vbYesNo)
If ResPonse = vbNo Then
Exit Sub

Else
GoTo 2

I get an errror:

Case Else outside Select Case

When I remark out the Case Else I get the error:

End Select without Select Case

What is wron g with the code.

The statement that appears to be causing the problem

ResPonse = MsgBox(prompt:=Msg, Buttons:=vbYesNo)
If ResPonse = vbNo Then
Exit Sub

Else
GoTo 2


Is giving the user a choice of continuing or quiting.

Thank you for your help and hopefully I have provided enough detail.



Badinput:
Select Case Erl
Case Is = 1
Msg = "Error! " & Esp & "You must Enter numbers between " & TabMin & Esp
& TabMax & _
vbCr & vbCr & " rerun Macro"
MsgBox Buttons:=vbCritical, prompt:=Msg

MsgBox "Ending program now"
Application.StatusBar = False
Application.ScreenUpdating = True

Case Is = 2
Msg = "Error! " & Esp & "Dublicate Tab name " & Esp & NewSheet & _
vbCr & vbCr & " Enter a unique Tab name"
' MsgBox prompt:=Msg, Buttons:=vbCritical
ResPonse = MsgBox(prompt:=Msg, Buttons:=vbYesNo)
If ResPonse = vbNo Then
Exit Sub

Else
GoTo 2

Case Else
Msg = "ending program"
MsgBox Msg
Exit Sub

End Select

 

[Per Jessen]

I am having trouble with the code in 2:

when I add this code:
ResPonse = MsgBox(prompt:=Msg, Buttons:=vbYesNo)
                  If ResPonse = vbNo Then
                     Exit Sub

                  Else
                     GoTo 2

I get an  errror:

Case Else outside Select Case

When I remark out the Case Else I get the error:

End Select without Select Case

What is wron g with the code.

The statement that appears to be causing the problem

 ResPonse = MsgBox(prompt:=Msg, Buttons:=vbYesNo)
                  If ResPonse = vbNo Then
                     Exit Sub

                  Else
                     GoTo 2

Is giving the user a choice of continuing or quiting.

Thank you for your help and hopefully I have provided enough detail.

Badinput:
  Select Case Erl
    Case Is = 1
    Msg = "Error! " & Esp & "You must Enter numbers between " & TabMin & Esp
& TabMax & _
               vbCr & vbCr & " rerun Macro"
              MsgBox Buttons:=vbCritical, prompt:=Msg

              MsgBox "Ending program now"
              Application.StatusBar = False
              Application.ScreenUpdating = True

    Case Is = 2
      Msg = "Error! " & Esp & "Dublicate Tab name " & Esp & NewSheet & _
               vbCr & vbCr & " Enter a unique Tab name"
               ' MsgBox prompt:=Msg, Buttons:=vbCritical
              ResPonse = MsgBox(prompt:=Msg, Buttons:=vbYesNo)
                  If ResPonse = vbNo Then
                     Exit Sub

                  Else
                     GoTo 2

  Case Else
    Msg = "ending program"
    MsgBox Msg
      Exit Sub

    End Select

Hi

You are missing "End If" before "Case Else"

Regards,

Per

 

[lwm]

My face is red with embracement.

Thank you.

Hi

You are missing "End If" before "Case Else"

Regards,

Per

 

[James]

Hi lvm,

You need an End If statement immediately after Goto 2.

Cheers

James A.