Изменение шрифта фигур Specifi c на каждом слайде в PowerPoint с помощью VBA

Question

Я пытаюсь запустить огромный файл PowerPoint и хочу изменить определенные шрифты TextBoxes на каждом слайде (не на каждом слайде есть текстовое поле), однако я получаю сообщение об ошибке, когда его не удается найти на слайде ( это нормально, я просто хочу, чтобы он перешел к следующему слайду, проверил и изменил при необходимости) Как бы я это исправить, пожалуйста?

Sub ChangeIndividualFonts()

    Dim bpFontName As String

    bpFontName = "Arial"

    With ActivePresentation
        For Each Slide In .Slides
            For Each Shape In Slide.Shapes
                With Slide.Shapes("TextBox 5")
                    If .HasTextFrame Then
                        If .TextFrame.HasText Then
                            .TextFrame.TextRange.Font.Name = bpFontName
                        End If
                    End If
                End With
            Next
        Next
    End With

End Sub