If-betingelse VBA Excel

sub tjek()
For Each c In Range(Sted)' Sted = navnet på det navngivne område.
If (c, 1)<> tekstbox 1 then
msgbox (der er en fejl)
exit sub
Else

End If
next
end sub

Fejl i denne linie,det skal være.
If (c)<> tekstbox 1 then

Det virker delvist! jeg satte " " omkring "sted" og det virkede. De lovlige værdier er: B,U og R.

Hvis jeg nu skriver D eller en anden vilkårlig værdi - kommer den samme fejlmeddelelse (Msgbox) 3 gange og det er ikke helt meningen!

For Each c In Range("Offers") ' Sted = navnet på det navngivne område.
If (c) <> lstOffer Then
    MsgBox ("You must select one of the Offer-types")
    lstOffer.SetFocus
Else
End If
Next
Exit Sub

Kan det løses?

Skal point forhøjes?

Mvh

Laje

Exit sub  skal stå før Else
det er derfor at du får beskeden flere gange

Point forhøjet (ikke meget)  ;-)

Det virker altså ikke! Selvom jeg skriver én af de rigtige værdier kommer den med fejlbeskeden.
Dette er en meget lang kommando til en knap på en userform. Du kan lige se et brudstykke her:

Private Sub cmdSave_New_Click()

If lstClientName = "" Then
    MsgBox ("You must select a clientname from the available list")
    lstClientName.SetFocus
    Exit Sub
End If


For Each c In Range("Offers") ' Sted = navnet på det navngivne område.
If (c) <> lstOffer Then
    MsgBox ("You must select one of the Offer-types")
    lstOffer.SetFocus
Exit Sub
Else
End If
Next


If lstCategory = "" Then
    MsgBox ("You must select a Category from the available list")
    lstCategory.SetFocus
    Exit Sub
End If

Jeg har tjekket at jeg har et navngivet områder der hedder "offers", som indeholder værdierne U, B og R.

Hvad gør jeg galt?

Mvh

Laje

For Each c In Range("Offers") ' Sted = navnet på det navngivne område.
If (c) = lstOffer Then
fejl = false
exit sub ' her kan du også gå til et navngivet sted i stedet for at afslutte
  Else
fejl = true
End If
Next
if fejl = true then
MsgBox ("You must select one of the Offer-types")
    lstOffer.SetFocus
end if

For Each c In Range("Offers") ' Sted = navnet på det navngivne område.
If (c) = lstOffer Then
fejl = False
GoTo AltOk
Else
fejl = True
End If
Next
If fejl = True Then
MsgBox ("You must select one of the Offer-types")
    lstOffer.SetFocus
End If
AltOk:
If lstCategory = "" Then
    MsgBox ("You must select a Category from the available list")
    lstCategory.SetFocus
    End If

>> Kabbak, den sidste, den var rent konge!

MsgBox ("You must select one of the Offer-types")
    lstOffer.SetFocus
=> Du manglede lige en "EXIT SUB" her
End If
AltOk:

Perfekt løsning  ;-)

Mange tak for hjælpen, mvh Laje