Need Help Fixing VBA Code for Comboboxes

[kreepa]

How do I modify the following code to always reference ComboBox1 on slide 4 for the Set oShape?

I currently have to click the combobox and then run the macro. However when I send to another user the VBA is not active anymore unless I rerun the macro. I would like it to become static and fixed - "Only refering to Combobox1"

Sub AddItemsToIncidentListBox()
Dim oShape As Shape
Set oShape = ActiveWindow.Selection.ShapeRange(1)
With oShape.OLEFormat.Object
    ' Add items to the list
    .AddItem ("Earthquake")
    .AddItem ("Fire")
    .AddItem ("Medical")
    .AddItem ("Workplace Violence")
    .AddItem ("Bomb Scare")
    .AddItem ("Traffic Issue")
    .AddItem ("Building Incident")
    .AddItem ("Campus Incident")
    ' You could work with other properties of the list or combo box here as well
End With
End Sub

KREEPA