Command Button disabled until checkbox selected

Seems bit complicated, At the top of the Command Box Click event. Test for the option button and exit.

' This is not real code and is not tested.
Sub Commandbutton_Click()

    if checkbox1  <> true then exit sub

'Your code goes here

End Sub

mehmetcik

Many thanks for the advice,, it now works... I removed the other code and adjusted the code for the command button to include the two lines for the check boxes....

much simpler now...

Private Sub cmdenter_Click()

Dim iRow As Long
Dim ws As Worksheet
Dim a As Integer
Set ws = Worksheets("Database")

    If cboxincident <> True Then
    If cboxcapa <> True Then Exit Sub
End If

Sheet1.Range("da1").Value = Me.cboxincident.Value
Sheet1.Range("db1").Value = Me.cboxcapa.Value

Me.cboxincident.Value = ""
Me.cboxcapa.Value = ""

Unload Me
End Sub

You have one if statement too many

Private Sub cmdenter_Click()

Dim iRow As Long
Dim ws As Worksheet
Dim a As Integer
Set ws = Worksheets("Database")

    If cboxincident <> True and cboxcapa <> True Then Exit Sub


Sheet1.Range("da1").Value = Me.cboxincident.Value
Sheet1.Range("db1").Value = Me.cboxcapa.Value

Me.cboxincident.Value = ""
Me.cboxcapa.Value = ""

Unload Me
End Sub