Select Case not working

[SandsB]

This worked for me until I tried to add a second region. It seems to just ignore the second check. What's not right here?
----

Dim intResp As Integer
'East Region check
Select Case UCase(Range("$D$9"))
Case "East"
Select Case UCase(Range("$D$46"))
Case Is = "AL", "FL", "GA", "MS", "NC"
Case Else
intResp = MsgBox("There's a mismatch. Click Cancel to correct or OR to continue.", vbOKCancel, "State / Region Mismatch")
Select Case intResp
Case Is = vbCancel 'or 2
Exit Sub
Case Else 'or = vbOK or 1
End Select
End Select

'West Region check
Select Case UCase(Range("$D$9"))
Case "West"
Select Case UCase(Range("$D$46"))
Case Is = "CA", "OR"
Case Else
intResp = MsgBox("There's a mismatch. Click Cancel to correct or OR to continue.", vbOKCancel, "State / Region Mismatch")
Select Case intResp
Case Is = vbCancel 'or 2
Exit Sub
Case Else 'or = vbOK or 1
End Select
End Select
End Select

 

[VoG]

UCase(Range("$D$9")) will never be "East".

Try

Select Case Range("$D$9").Value
    Case "East"

Similarly with the West check.

 

[Norie]

SandsB

Please continue in the original thread.

You don't need all those Select...Case structures and I'm afraid the code is pretty hard follow without indentation.

Or an explanation of it's purpose or the logic.