how do I delete documents from the recent doccument box(excel)

[john]

how do I delete documents from the recent doccument box(excel)

 

[Dave Peterson]

This works ok for me in xl2003--but I've never tested it in xl2007.

Option Explicit
Sub testme()

Dim iCtr As Long
Dim MRUMax As Long
Dim TestStr As String

With Application.RecentFiles
MRUMax = .Maximum
For iCtr = .Count To 1 Step -1
TestStr = ""
On Error Resume Next
TestStr = Dir(.Item(iCtr).Path)
On Error GoTo 0
If TestStr = "" Then
.Item(iCtr).Delete
End If
Next iCtr
.Maximum = MRUMax
End With

End Sub


If you're new to macros:

Debra Dalgleish has some notes how to implement macros here:
http://www.contextures.com/xlvba01.html

David McRitchie has an intro to macros:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Ron de Bruin's intro to macros:
http://www.rondebruin.nl/code.htm

(General, Regular and Standard modules all describe the same thing.)

 

[Dave Peterson]

Ps. That code deletes names of files that don't exist.

 

[Gord Dibben]

Further to David's suggestion.

Sub toggle_MRU()
With Application
.RecentFiles.Maximum = 1 'leaves current workbook on list
End With
With Application
.RecentFiles.Maximum = 5
End With
End Sub


Gord Dibben MS Excel MVP