Sorry to ask again but is there a way to the msgbox code above without having the presentation open I am trying the following.

Sub getShapeNames()
Dim oshp As Shape
Dim Mylibrary As Presentation
Dim osld As Slide
Dim strReport As String
strReport = "Shapes On Slide" & vbCrLf & "===========" & vbCrLf & vbCrLf
On Error Resume Next
Set Mylibrary = Presentations.Open(Environ("USERPROFILE") & "\My Documents\CustomShapes.ppt", WithWindow:=False)
For Each oshp In Mylibrary.Shapes
strReport = strReport & oshp.Name & vbCrLf
Next oshp
msgbox strReport