Public Sub EditRecentFiles()
' Created by Patricia Shannon 04/04/2006
' Displays Recently Used files
' Allows selected files to be removed from the list
' This is a little more efficient than the other one.
' Doesn't matter so much in this little macro, but I wanted to replace the
other one to set a good example for those learning VBA
Dim RecentCntr
Dim NbrRecent
Dim Response
Dim HoldRecentFile As RecentFile
NbrRecent = Application.RecentFiles.Count
MsgBox "Nbr recent files=" & NbrRecent
'Set HoldRecentFile = Application.RecentFiles(1)
'MsgBox TypeName(Application.RecentFiles(1))
For RecentCntr = NbrRecent To 1 Step -1
Set HoldRecentFile = Application.RecentFiles(RecentCntr)
Response = MsgBox("cntr=" & RecentCntr & " " _
& HoldRecentFile.Name _
& vbNewLine & "Delete?", vbYesNoCancel + vbDefaultButton2)
Select Case Response
Case vbCancel
GoTo endpgm
Case vbYes
HoldRecentFile.Delete
MsgBox "File deleted from recent files list"
End Select
Next RecentCntr
endpgm:
End Sub
Bookmarks