Multiple Toggle Buttons in Excel

[faberem20]

Hello,

I would like to have multiple toggle buttons in excel that are independent of each other. I created two toggle buttons with the following code and get a Run-time error '1004:
Method 'OLEOBjects' of object'_Worksheet' failed. How can this be fixed?

Private Sub ToggleButton1_Click()
Range("D42").Value = IIf(Me.OLEObjects(1).Object.Caption = "Off", 0.01, 0.03)
Me.OLEObjects(1).Object.Caption = IIf(Range("D42").Value = 0.01, "On", "Off")
End Sub


Private Sub ToggleButton2_Click()
Range("D43").Value = IIf(Me.OLEObjects(1).Object.Caption = "Off", 0.01, 0.03)
Me.OLEObjects(1).Object.Caption = IIf(Range("D43").Value = 0.01, "On", "Off")
End Sub

 

[MickG]

This worked for me.
NB:- Me.OLEObject(1) & Me.OLEObject(2)

Private Sub ToggleButton1_Click()
  'alternative code to refer to ToggleButton:-
  'Range("D4").Value = IIf(Me.OLEObjects("ToggleButton1").Object.Caption = "Off", 0.01, 0.03)
  
  Range("D4").Value = IIf(Me.OLEObjects(1).Object.Caption = "Off", 0.01, 0.03)
  Me.OLEObjects(1).Object.Caption = IIf(Range("D4").Value = 0.01, "On", "Off")
 End Sub
Private Sub ToggleButton2_Click()
 Range("D6").Value = IIf(Me.OLEObjects(2).Object.Caption = "Off", 0.01, 0.03)
 Me.OLEObjects(2).Object.Caption = IIf(Range("D6").Value = 0.01, "On", "Off")
 End Sub

 

[faberem20]

Thank you.

 

[faberem20]

This worked for me.
NB:- Me.OLEObject(1) & Me.OLEObject(2)

Private Sub ToggleButton1_Click()
  'alternative code to refer to ToggleButton:-
  'Range("D4").Value = IIf(Me.OLEObjects("ToggleButton1").Object.Caption = "Off", 0.01, 0.03)
  
  Range("D4").Value = IIf(Me.OLEObjects(1).Object.Caption = "Off", 0.01, 0.03)
  Me.OLEObjects(1).Object.Caption = IIf(Range("D4").Value = 0.01, "On", "Off")
 End Sub
Private Sub ToggleButton2_Click()
 Range("D6").Value = IIf(Me.OLEObjects(2).Object.Caption = "Off", 0.01, 0.03)
 Me.OLEObjects(2).Object.Caption = IIf(Range("D6").Value = 0.01, "On", "Off")
 End Sub

Do you know if there is code that uses a toggle button to customize a cell to a percentage of my choosing and have the off at 3%?

Thanks,
Erik