[vba]
Dim cbo As OLEObject
Dim ws As Worksheet
Set ws = Worksheets("Boiler")
If OLEObjects("ComboBox1").Object.Value = "Boiler4" Then
OLEObjects("CheckBox2").Object.Value = True
Else
OLEObjects("CheckBox2").Object.Value = False
End If[/vba]
[vba]
Dim cbo As OLEObject
Dim ws As Worksheet
Set ws = Worksheets("Boiler")
If OLEObjects("ComboBox1").Object.Value = "Boiler4" Then
OLEObjects("CheckBox2").Object.Value = True
Else
OLEObjects("CheckBox2").Object.Value = False
End If[/vba]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Posting Permissions
Reply With Quote