recently used files, cleanup
I wanted to remove several files from my recently used files list, so that
the ones I really wanted to keep would be at the top of the list and less apt to be lost. Here is a macro that will display the list, and allow each file to be deleted from the list if desired. The files itself is not deleted. It is just removed from the recently used file list. 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 Dim NbrRecent Dim Response NbrRecent = Application.RecentFiles.Count MsgBox "Nbr recent files=" & NbrRecent For RecentCntr = NbrRecent To 1 Step -1 Response = MsgBox("cntr=" & RecentCntr & " " _ & Application.RecentFiles(RecentCntr).Name _ & vbNewLine & "Delete?", vbYesNoCancel + vbDefaultButton2) Select Case Response Case vbCancel GoTo endpgm Case vbYes Application.RecentFiles(RecentCntr).Delete MsgBox "File deleted from recent files list" End Select Next RecentCntr endpgm: End Sub |
All times are GMT +1. The time now is 01:53 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com