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