wie viele DropDowns mit Werten befüllen?

neuer Thread, weil meine ursprüngliche Antwort auf Nikes Lösung zu weit unten in der Seite liegt...

Also ich hab's so versucht:

    Dim wks As Worksheet

    Dim oleObj As Object

    For Each wks In ActiveWorkbook.Worksheets

        For Each oleObj In wks.OLEObjects

            If Left(oleObj.Name, 3) = "cmb" Then

                With oleObj

                    .AddItem "Arbeit"

                    .AddItem "Urlaub"

                    .AddItem "Krank"

                    .AddItem "Feiertag"

                End With

            End If

        Next

    Next

Aber dann kriege ich einen "Laufzeitfehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht" in der Zeile mit .AddItem "Arbeit".
Wie muss ich's richtig machen??

Danke, und Grüße
Gabriel