Sub RecentFilesList() Dim s As String Dim rf As RecentFile s = "Recent Files" & vbCrLf For Each rf In RecentFiles s = s & vbCrLf & rf.Name & " (" & rf.FullName & ")" Next rf MsgBox sEnd Sub