ActiveX command Button

[FootBallBat]

Hello I am looking for a code that when the command button is clicked it will change "B1"
Private Sub CommandButton2_Click()
If "B1" = 1 then "B1" = 2
else
If "B1" = 2 then "B1" = 1

I realize this is not a code it's just and example of what I'm looking for.
Thank you

 

[My Aswer Is This]

Try this:

Private Sub CommandButton2_Click()
'Modified  4/11/2019  9:07:12 PM  EDT
If Range("B1").Value = 1 Then
    Range("B1").Value = 2
Else
If Range("B1").Value = 2 Then
    Range("B1").Value = 1
End If
End If
End Sub

 

[FootBallBat]

Try this:

Private Sub CommandButton2_Click()
'Modified  4/11/2019  9:07:12 PM  EDT
If Range("B1").Value = 1 Then
    Range("B1").Value = 2
Else
If Range("B1").Value = 2 Then
    Range("B1").Value = 1
End If
End If
End Sub

Works Great Thank you

 

[My Aswer Is This]

Or This:

Private Sub CommandButton2_Click()
'Modified  4/11/2019  9:15:23 PM  EDT
If Range("B1").Value = 1 Then Range("B1").Value = 2: Exit Sub
If Range("B1").Value = 2 Then Range("B1").Value = 1: Exit Sub
End Sub

 

[My Aswer Is This]

Or this:

Private Sub CommandButton2_Click()
'Modified  4/11/2019  9:23:41 PM  EDT
With Range("B1")
    Select Case Range("B1").Value
        Case 1
            .Value = 2
        Case 2
            .Value = 1
    End Select
End With
End Sub

 

[My Aswer Is This]

Or like this:

Private Sub CommandButton2_Click()
'Modified  4/11/2019  9:30:41 PM  EDT
With [B1]
    Select Case [B1]
        Case 1
            .Value = 2
        Case 2
            .Value = 1
    End Select
End With
End Sub