Case Statment in Err trapping

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
 
P

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

Hi

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

Regards,

Per
 

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
Help with if elseif verification 2
MsgBox Screen Position 2
Trying get macro to clear cells when workbook is opened. 1

Top