Sub Test() Dim rf As RecentFile, s As String s = "Most Recently Used files:" For Each rf In RecentFiles s = s & vbCr & rf.Index & ". " & rf.Name Next rf MsgBox sEnd Sub