Update Font size on Title 1 on certain slide numbers

[gmooney100]

HI,

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


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

[arnelgp]

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

[gmooney100]

Thank you. This did the trick!