Is this a bug...?

[DominicB]

Hi all

I have been playing with the .RecentFiles property and have come across an oddity. The code below will remove the second item from your recently used files list (under the File menu) - assuming you have a second file there, and do not have your maximum flag set to 1 or 0 :

Sub test()
Application.RecentFiles(2).Delete
End Sub

When run this code will do what's intended, but it will also decrease your number of recently used files to show (Tools > Options, General) by 1. This flag is controlled by the Application.RecentFiles.Maximum instruction so shouldn't happen. Is this a bug (or a known issue) or am I missing something?

This is Excel 2003, Windows Pro XP (both SP2)

DoimnicB

 

[Scott Huish]

Perhaps, (itr being the index number of the item you wish to remove),

Sub test()
Dim MRUCount As Integer, itr As Integer
itr = 2
With Application.RecentFiles
    If .Count >= itr Then
        MRUCount = .Count
        .Item(itr).Delete
        .Maximum = MRUCount
    End If
End With
End Sub

 

[DominicB]

Hi HOTPEPPER

Thanks for your reply. I tried using a workaround similar to yours - capturing the ,Maximum value, deleting the entry and resetting the .Maximum, but couldn't get it working properly. Strangely, it seems to work OK if you reference the entry via the Item method as you have done.

Thanks again

DominicB