Error adding ActiveX Control Combo box with "For Each oPic In Me.Pictures"

Hello

I am new to the formum and just getting into more VB thru Excel and I am looking for a little help please.

I read multiple threads/posts on using pictures within excel.

I have the image lookup working great using this code based on http://www.mcgimpsey.com/excel/lookuppics.html.

Private Sub Worksheet_Calculate()
        Dim oPic As Picture
        Me.Pictures.Visible = False
        With Range("F1")
            For Each oPic In Me.Pictures
                If oPic.Name = .Text Then
                    oPic.Visible = True
                    oPic.Top = .Top
                    oPic.Left = .Left
                    Exit For
                End If
            Next oPic
        End With
End Sub

However, now when I go to insert an activex control Combobox I start getting errors.
Run-time error '13' to be specific.
Plus my combobox disappers.

If I go back into design mode and delete combobox the issue goes away.

I am looking to add multiple activex comboboxes and would appreciate any help.

Thanks
Cbell