Update Font size on Title 1 on certain slide numbers

HI,

I have the following that is giving me an error "Method 'Item' of object 'Shapes' failed: Can someone help me fix this?

Code:

---

Sub FixTitleSlideFontSize()

    With ActivePresentation.Slides.Range(Array(17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 29, 30, 31, 32, 34, 42)).Shapes("Title 1")
       
        With .TextFrame.TextRange.Font
           
            .Size = 16
           
            .Name = "Arial"
           
            .Bold = True
           
        End With
       
    End With
   
End Sub

---

Code:

---

Sub FixTitleSlideFontSize()
    Dim sld As Slide
    With ActivePresentation
        For Each sld In .Slides.Range(Array(17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 29, 30, 31, 32, 34, 42))
            With sld.Shapes("Title 1")
                With .TextFrame.TextRange.Font
                    .Size = 16
                    .Name = "Arial"
                    .Bold = True
                End With
            End With
        Next
    End With
End Sub

---

Thank you. This did the trick!