Есть ли способ показать все номера слайдов с тегом - PowerPoint VBA?

Question

Я добавил теги к некоторым слайдам, я хотел бы получить список номеров слайдов этих слайдов с помощью функции. Я новичок в VBA, так что это может быть совершенно неправильно, но это то, что я пытался

Sub ViewAllTagsSlides()
Dim osld As Slide

'check for selection
If ActiveWindow.Selection.Type = ppSelectionNone Then GoTo errhandler

'Check through slides
For Each osld In ActivePresentation.Slides
    With ActiveWindow.Selection.SlideRange
        If ActiveWindow.Selection.SlideRange.Tags("TYPE") = "ONE" Then MsgBox ActiveWindow.Selection.SlideRange.SlideIndex(1)
    End With

Next

Exit Sub
errhandler:
MsgBox "You need to select slides!"

End Sub