Gibt es einen Spezialist für Automakros!?

ich habe ein kleines Problem!

Ich habe ein Makro und möchte, dass dieses automatisch beim öffnen gestartet wird!

Mein Programm sieht bis jetzt so aus:

Option Explicit

Private Sub Workbook_Open()
Dim intCounter As Integer
For intCounter = 1 To 2
ComboBox1.AddItem "Erde1"
ComboBox1.AddItem "Erde2"
Next intCounter
End Sub

Private Sub ComboBox1_Click()

Sheets("Protokoll").Activate

If ComboBox1 = "Erde1" Then
Image1.Picture = LoadPicture("Erde1.gif")
End If

If ComboBox1 = "Erde2" Then
Image1.Picture = LoadPicture("Erde2.gif")
End If

End Sub

Habe jetzt versucht in "Diese Arbeitmappe" mein Automakro einzusetzen, welches folgendermaßen aussieht:

Private Sub Workbook_Open()
Load ComboBox1
ComboBox1.Show
End Sub

Das funktioniert aber überhaupt nicht!

Kann mir vielleicht jemand weiterhelfen!? Danke!!!!!

Gruss Chris