Case Statment in Err trapping

  • Thread starter Thread starter lwm
  • Start date Start date
L

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
 
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
Click to expand...

Hi

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

Regards,

Per
 
Hi lvm,

You need an End If statement immediately after Goto 2.

Cheers

James A.
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Excel Providing user message when RED X clicked & properly closing application. 2
Excel Msgbox runing beyond posted cell range. 1
Excel Message box called if 1 of 3 options is entered. 4
Excel Need assistance with modifying a Duplicate declaration. 13
Changes in How Code Acts After Upgrade of Excel 2
Compile Error:Variable not defined 4
Help with if elseif verification 2
Help accessing msgbox prompt via function 2

Back
Top