Hey -
Somewhat newbie to VBA - Can anyone tell me what is wrong with this
code?
Error is "Object doesn't support this method". Thanks a ton.
Steve

Sub CheckBoxChange()
If ActiveSheet.CheckBox2.Value = True Then
If MsgBox("Do you really want to change the risk level?", _
vbQuestion + vbYesNo) = vbYes Then
ActiveSheet.CheckBox2.Value = False
End If
ElseIf ActiveSheet.CheckBox2.Value = False Then
If MsgBox("Do you really want to change the risk level?", _
vbQuestion + vbYesNo) = vbYes Then
ActiveSheet.CheckBox2.Value = True
End If
End If
End Sub


--
nemadrias
------------------------------------------------------------------------
nemadrias's Profile: http://www.excelforum.com/member.php...o&userid=24613
View this thread: http://www.excelforum.com/showthread...hreadid=552736