Tak podarilo sa mi to vyriesit, ak by niekoho zaujimal kod:

Private Sub ToggleButton24_Click()

If ToggleButton24.Value = True Then
Range("C3") = Selection & 5
ToggleButton24.BackColor = RGB(255, 0, 0)
Else: ToggleButton24.BackColor = RGB(0, 255, 0)
Range("C3").Select
ComboBox1.Value = Left(ComboBox1.Value, Len(ComboBox1.Value) - 1)
End If
End Sub