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

On 27 Jan., 23:10, lwm <l...@discussions.microsoft.com> wrote:
> 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

My face is red with embracement.

Thank you.

"Per Jessen" wrote:

> On 27 Jan., 23:10, lwm <l...@discussions.microsoft.com> wrote:
> > 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
>

Hi lvm,

You need an End If statement immediately after Goto 2.

Cheers

James A.

"lwm" <(E-Mail Removed)> wrote in message
news952D948-CD34-4664-A380-(E-Mail Removed)...
> 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