Thanks a million in advance, I always reply to anyone who
gives me advice.
Casey K. Wolfe
casey wolfe wrote:
--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html
maybe you open these recent files by double-clicking them or through explorer?
The recent list will only be files that are opened using file>open in excel..
--
Regards,
Peo Sjoblom
"casey wolfe" <wolfeNOga...@hotmail.com> wrote in message news:8b9301c2080b$3c11d7e0$36ef2ecf@tkmsftngxa12...
(I was corrected earlier this week on this one, too!)
--
Dave Peterson
ec3...@msn.com
Maybe you could use that for the files that you opened via double clicking in
explorer.
--
Dave Peterson
ec3...@msn.com
It's hard to teach an old dog new tricks.
Woof, woof.
--
Dave Peterson
ec3...@msn.com
And please don't bark -- I finally got rid of that darn Windows Explorer
Search Window dog, and don't want to be reminded.
Sub MRU_AddToList()
'// = = = = = = = = = = = = =
' Adds ActiveWorkbook to the MRU list
' By: Dana DeLouis
'// = = = = = = = = = = = = =
With Application
' Make sure Option is turned on.
If Not .DisplayRecentFiles Then
.DisplayRecentFiles = True
.RecentFiles.Maximum = 9
End If
' Make sure Document is Saved
If ActiveWorkbook.Path = vbNullString Then
MsgBox "Please Save Document first !", vbCritical
Exit Sub
End If
' Remove Invalid MRU's
MRU_CleanUp
' Add to MRU list
.RecentFiles.Add Name:=ActiveWorkbook.FullName
End With
End Sub
Sub MRU_CleanUp()
'= = = = = = = = = = = = ="
'// Deletes MRU that are no longer valid
'// By: Dana DeLouis
'= = = = = = = = = = = = ="
Dim j As Integer
With Application.RecentFiles
For j = .Count To 1 Step -1
If Len(Dir(.Item(j).Path)) = 0 Then
Debug.Print
Debug.Print "= = = = = = = = = = = = ="
Debug.Print "MRU file no longer valid..."
Debug.Print .Item(j).Name & " : " & .Item(j).Path
Debug.Print "= = = = = = = = = = = = ="
Debug.Print
.Item(j).Delete
End If
Next j
End With
End Sub
--
Dana DeLouis
Windows XP & Office XP
= = = = = = = = = = = = = = = = =
"casey wolfe" <wolfeNOga...@hotmail.com> wrote in message
news:8b9301c2080b$3c11d7e0$36ef2ecf@tkmsftngxa12...