Need Help Fixing VBA Code for Comboboxes

[John Wilson]

Try this

Sub OnSlideShowPageChange()
Dim s As Integer
s = ActivePresentation.SlideShowWindow.View.CurrentShowPosition
If s <> 1 Then Exit Sub
With ActivePresentation.Slides(4).Shapes("ComboBox1").OLEFormat.Object
    .Clear
    .AddItem "First"
    .AddItem "Second"
End With
End Sub