Put this line of code
 If ComboBox1 = "" Then
    MsgBox "NO SELECTION MADE", vbInformation, ""
    Exit Sub
End If
in the command buttons for both IN & OUT just before line of code
With ws