I get the "Block if without end if" error on the codes below. I don't see where I am missing an End If... please help~ ;)
Expand|Select|Wrap|Line Numbers
- If myChoice = "CREATION" Then
- Dim c As Range
- For Each c In Sheets("RMs").Range("F2:F500")
- If c.Value = TextBox_SecCode.Value Then
- MsgBox "SecCode already exists. Please input a different SecCode."
- Exit Sub
- Else
- rsT.Fields("SecCode").Value = TextBox_SecCode.Value
- End If
- Next