Klasse von 2003 nach 2007

Private Sub TgBtn_Change()
If TgBtn.Value = False Then
TgBtn.Caption = "ausblenden"
Call NachtZweiHer
Else
TgBtn.Caption = "einblenden"
Call NachtZweiWeg
End If
End Sub

Private Sub Workbook_Open() enthält :
Dim myOLEObject As OLEObject, myWorksheet As Worksheet, intAnzahl As Integer
For Each myWorksheet In ThisWorkbook.Worksheets
For Each myOLEObject In myWorksheet.OLEObjects
If myOLEObject.progID = "Forms.ToggleButton.1" Then
intAnzahl = intAnzahl + 1
ReDim Preserve MyTgBt(1 To intAnzahl)
Set MyTgBt(intAnzahl).TgBtn = myOLEObject.Object
End If
Next
Danke & Grüße
Lorenz