Setfocus vba to combobox

[Pookiemeister]

Private Sub cmbSDPFLine_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim rtn_ans1 As String
    If cmbSDPFLine.Value = "" Then
    rtn_ans1 = MsgBox("Please select a production line.", vbOKOnly + vbExclamation & "Please Select Production Line")
End If
Select Case rtn_ans1
Case 1
        cmbSDPFLine.SetFocus
End Select
End Sub

What I'm trying to do is very simple, so I thought. All I want to do is when the user exits the combobox without selecting anything then the messagebox appears, which it does, when the user clicks the ok button it returns them back to the cmbSDPFLine until they select something. I'll be doing this to 5 other textboxes also. I saw on a microsoft MSDN webpage that Case 1 is equal to vbOkonly. thank you.

 

[jproffer]

Change this:

cmbSDPFLine.SetFocus

to:

Cancel = True

And you really don't need all the Case selection etc. You can just do this:

If cmbSDPFLine.Value = "" Then
      MsgBox("Please select a production line.", vbOKOnly + vbExclamation & "Please Select Production Line")
    Cancel = True
End If

There answer is always going to be OK because that's the only choice they have.