Search for first instance and replace or insert

[Raybob]

Hi all, I am trying to search for the first instance of "Material" in my powerpoint slide titles, and add a carriage return after it. I have been trying to use the find and replace function, but it seems to be random about working. . Right now it replaces all the text in the slide titles with "Material" rather than inserting a carriage return. Any ideas?

Sub Addlinetotitle()
Dim sld As Slide
Set sld = ActivePresentation.Slides(1)
Dim shp As Shape
Dim strFindWhat As String: strFindWhat = "Material"
Dim strReplaceWhat As String: strReplaceWhat = "Material" & vbCr
Dim treReplaced As TextRange
        For Each sld In ActivePresentation.Slides
            For Each shp In sld.Shapes
                If shp.HasTextFrame Then
                    If shp.TextFrame.HasText Then
                        shp.TextFrame.TextRange.Text = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Replace(FindWhat:=strFindWhat, ReplaceWhat:=strReplaceWhat)
                    End If
                End If
             Next
        Next sld
End Sub

[John Wilson]

Does this work?

Sub Addlinetotitle()
Dim sld As Slide
Set sld = ActivePresentation.Slides(1)
Dim shp As Shape
Dim lPos As Long
Dim strTitle As String
Dim strFindWhat As String: strFindWhat = "Material"
Dim strReplaceWhat As String: strReplaceWhat = "Material" & vbCrLf
If sld.Shapes.HasTitle Then
    strTitle = UCase(sld.Shapes.Title.TextFrame.TextRange.Text)
    lPos = InStr(strTitle, "MATERIAL")
    If lPos > 0 Then
        sld.Shapes.Title.TextFrame.TextRange.Characters(lPos + 8).InsertAfter vbCrLf
    End If
End If
End Sub

[Raybob]

John Wilson
Thank you so much! This does the trick! I did modify it to use "+7", but overall this works great!