OptionButton Value to Active Cell

[dannac]

Trying to click on option button on user form and have value added to active cell.
My code not working.

 
Private Sub UserForm1_Click()
 
    If OptionButton1 Then
        ActiveCell.Value = 1
    If OptionButton2 Then 
        ActiveCell.Value = 2
        
    
End Sub