Enable command button dependant on cell completion

[monkeychuff]

Hi,

I have the following code, which works, but is very crude. Is there a better way to do this? Also, I would like to re-disable the command button if information is deleted from any of the target cells. Thanks in advance.

Private Sub Worksheet_Change(ByVal Target As Range)
'This will ensure that you cannot access start button until all fields have been completed
    If [D13] > 1 Then
    If [I9] > 1 Then
    If [I11] > 1 Then
    If [I13] > 1 Then
    CommandButton1.Enabled = True
    End If
    End If
    End If
    End If
End Sub

 

[syntaxed]

Would this help?

Private Sub Worksheet_Change(ByVal Target As Range)
'This will ensure that you cannot access start button until all fields have been completed
    If [D13] > 1 And [I9] > 1 And [I11] > 1 And [I13] > 1 Then
    CommandButton1.Enabled = True
    Else
    CommandButton1.Enabled = False
    End If
End Sub