Private Sub CommandButton1_Click()
If Range("A1") = 0 Then
Range("A1") = 1
Exit Sub
End If
If Range("A1") > 0 Then
Range("B1") = 1
Exit Sub
End If
If Range("B1") > 0 Then
Range("C1") = 1
Exit Sub
End If
If Range("C1") > 0 Then
Range("D1") = 1
Exit Sub
End If
End Sub
I have tried the above code...