Sub copyText_to_Notes()
Dim osld As Slide
Dim oshp As Shape
Dim strTitle As String
For Each osld In ActivePresentation.Slides
If osld.Shapes.HasTitle Then
strTitle = osld.Shapes.Title.TextFrame.TextRange
End If
For Each oshp In osld.NotesPage.Shapes
If oshp.Type = msoPlaceholder Then
If oshp.PlaceholderFormat.Type = 2 Then
oshp.TextFrame.TextRange = strTitle
End If
End If
Next oshp
Next osld
End Sub