VBA code to open most recent file saved in folder

[arecube]

How can I get VBA code to locate and open only the latest edition of an .xls or .doc file within a folder ?

We use Excel 2003

The Excel files are in one path and the Word files in another.

Almost daily there is a "latest edition" of files placed in a folder along with all of their predecessor file editions. At times there are 2 or 3 revisions within one day.

To do this manually I double-click on the "Modified" column heading to bring the latest file to the top and then I open it. Once open, I input a header, search for certain numbers or text and then print the page that meets the "find" criteria.

 

[Datsmart]

Answer here should get you started.
http://www.mrexcel.com/forum/showthread.php?t=223730

 

[arecube]

Thanks John for the nearly instant reply and it should be a great start.

 

[crastas]

Thanks John for the nearly instant reply and it should be a great start.

I have the macro to open the file in folder but it opens the old file instead of latest.

Could you please assist.

Sub Macro6()
FolderName = "H:\Fire Code"
If Right(FolderName, 1) <> Application.PathSeparator Then FolderName = FolderName & Application.PathSeparator
Fname = Dir(FolderName & "*.xlsx")
With Workbooks.Open(FolderName & Fname)
End With
End Sub