Is it possible to rename ppt files with the tittle (or slide #1 name)?
I have 17 years worth of powerpoint's that I would like to organize. The naming system used was alphanumeric, but it doesn't tell you what the presentation was on. I would love to clean this up, but I am not sure how to go about it yet, or if there is a better way.

So far the code below is the most useful one I found, once I rename all the files. I intend to manipulate it so I can put this in a "Table of content" excel file with hyperlinks.

All help is appreciated, if there are better methods, I would love to hear those as well.

Sub MakeLotsOfLinks()

Dim TheTextBox As Shape
Dim FileName As String
Dim LinkRange As TextRange
Dim Top, Left, width, height As Double
Dim targetFileSpec As String


' EDIT THIS:  Replace the text between the equals signs
'                     with the path to the folder where your PPT files are stored
targetFileSpec = "C:\Users\Guie\Desktop\ppt\2015\*.PPT"


' Rather arbitrary starting positions for text box
Top = 18#
Left = 18#
width = 600#
height = 30#


' Get the first matching file
FileName = Dir$(targetFileSpec)


' And if somebody's home:
While FileName <> ""


    ' Add a textbox to hold the link
    Set TheTextBox = ActiveWindow.Selection.SlideRange.Shapes.AddTextbox(msoTextOrientationHorizontal, _
        Left, _
        Top, _
        width, _
        height)


    TheTextBox.TextFrame.TextRange.Text = FileName


    Set LinkRange = TheTextBox.TextFrame.TextRange.Characters(Start:=1, Length:=Len(FileName))
    LinkRange.ActionSettings(ppMouseClick).Hyperlink.Address = FileName


    ' Get the next file
    FileName = Dir$
    ' move the text box start position down
    Top = Top + height
Wend


End Sub