Sub Test() Dim rf As RecentFile, s As String, i As Long s = "Most Recently Used files:" For i = 1 To RecentFiles.Count Set rf = RecentFiles(i) s = s & vbCr & rf.Name & vbTab & rf.Path Next i MsgBox sEnd SubSub 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