I have an excel-"homepage"-sheet with several hyperlinks to other excel sheets, that I frequently use.
One of these sheets has a bunch of active-x checkboxes. with a button I can check all of these buttons.
Problem is, when I open this sheet via my "homepage"-sheet, the button doesn't function. when I "manually" open the sheet it DOES function....???
My code to check the buttons :
Sub checkall()
ActiveSheet.Unprotect
For Each MyShape In ActiveSheet.Shapes
If MyShape.Type = msoOLEControlObject Then
MyShape.Select
Selection.Object.Value = True
End If
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Anyone any suggestions ??
One of these sheets has a bunch of active-x checkboxes. with a button I can check all of these buttons.
Problem is, when I open this sheet via my "homepage"-sheet, the button doesn't function. when I "manually" open the sheet it DOES function....???
My code to check the buttons :
Sub checkall()
ActiveSheet.Unprotect
For Each MyShape In ActiveSheet.Shapes
If MyShape.Type = msoOLEControlObject Then
MyShape.Select
Selection.Object.Value = True
End If
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Anyone any suggestions ??