Hi Tony,
well the problem is you need to make sure you get the right shape - either by name or index doesn't actually mean it will be the note slide's body text box but I had a look at it's not so bad [VBA]Dim s As Shape

For Each s In ActivePresentation.Slides(i).NotesPage.Shapes
If s.PlaceholderFormat.Type = ppPlaceholderBody Then
MsgBox "It's this one! " & s.Name
End If
Next[/VBA]