On 27 Jan., 23:10, lwm 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