Erneuter Versuch: Gesucht Spezialist f. Automakros

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 nicht! --> Man kann eine ComboBox nicht laden!

Kann mir vielleicht jemand weiterhelfen!? Bzw. hat jemand einen anderen Vorschlag, wie ich das Problem beheben kann! Danke!!!!!

Bzw. kann ich jemandem mein kleines Testprogramm zuschicken!?

Gruss Chris