Custom Shows are always referenced by ID as this allows the slides to be moved without breaking the custom show.
It is posssible to show the current slide index but this will be unreliable if you reorganise the presentation in any way.
Sub GetListofCustomShows(ByVal Pres As Presentation, _
ByRef CustomShows As Collection)
Dim NS As NamedSlideShow
Dim I As Long
Dim S As String
Dim osld As Slide
With Pres.SlideShowSettings
For Each NS In .NamedSlideShows
S = NS.Name + ": "
For I = 1 To NS.Count
Set osld = Pres.Slides.FindBySlideID(NS.SlideIDs(I))
S = S & CStr(osld.SlideIndex) & ", "
Next
S = Left(S, Len(S) - 2)
CustomShows.Add S
Next
End With
End Sub
Sub Test()
Dim Msg As String
Dim CustomShows As Collection
Dim I As Long
Set CustomShows = New Collection
GetListofCustomShows ActivePresentation, CustomShows
For I = 1 To CustomShows.Count
Msg = Msg + CustomShows(I) + vbCrLf
Next
MsgBox Msg, vbInformation Or vbOKOnly, "Custom Shows List"
Set CustomShows = Nothing
End Sub