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

On Wed, 16 Dec 2009 05:52:07 -0000, "David Biddulph" <groups [at]
biddulph.org.uk wrote:

You can't delete individual documents, but if you want to clear the list,
use Tools/ Options/ General, and set Recently used file list to zero
entries. You can then set it back to a non-zero number to let it start a
new list.