I would think you could just do this to "sink" it...
Worksheets("Sheet1").ToggleButton1.Value = True
where you would change the worksheet reference to you actual worksheet name
and, if you didn't use the default name for the ToggleButton, change it
also. By the way, setting the Value property to False to "raise" it.
Rick