If the slide show running in slide show window one is a custom slide show, this example displays its name.
With SlideShowWindows(1).View
If .IsNamedShow Then
MsgBox "Now showing in slide show window 1: " _
& .SlideShowName
End If
End With