recent files edit correction

[Patricia Shannon]

I found out that my macro to delete unwanted files from the recent files
list, which you see when you click Files, also reduces the max nbr of recent
files that are saved. This version sets the max to 9, which is the absolute
max for Word 2003.

Public Sub EditRecentFiles()
' Created by Patricia Shannon 04/04/2006
' Displays Recently Used files
' Allows selected files to be removed from the list


Dim RecentCntr As Long
Dim NbrRecent As Long

NbrRecent = Application.RecentFiles.Count
MsgBox "Nbr recent files=" & NbrRecent
For RecentCntr = NbrRecent To 1 Step -1
Select Case MsgBox("cntr=" & RecentCntr & " " _
& Application.RecentFiles(RecentCntr).Name _
& vbNewLine & "Delete?", vbYesNoCancel + vbDefaultButton2)
Case vbCancel
GoTo endpgm
Case vbYes
Application.RecentFiles(RecentCntr).Delete
MsgBox "File deleted from recent files list"
Case vbNo
' Do nothing
Case Else
' Do nothin
End Select
Next RecentCntr

Application.RecentFiles.Maximum = 9

endpgm:
End Sub