VBA code to open latest file

[mashiulalam]

Hi,

I am trying to open most latest & greatest .pdf file from a folder that has lets say, 123456AA.pdf, 123456AB.pdf, 123456AC.pdf, 123456AD,......123456BW.pdf

I need to open the 123456BW.pdf. I have VBA code as follows.



Sub OpenPDFdoc()

Dim Folder As String

Folder = Left(ActiveCell.Value, 3)

On Error GoTo 1

ActiveWorkbook.FollowHyperlink "U:\Engineering\Design\DWG\" & Folder & "\" & ActiveCell.Value & ".pdf", NewWindow:=True

Exit Sub

1: MsgBox "File Cannot Be Opened"

End Sub

With this code I can open a specific folder. But I want to open the latest file and open it.

Attached excel file shows D7 & D8 cell has "151604EV.pdf" which are the latest revision. I want vba to find EV version of 15604 file.

Any help on vba would be highly appreciated.

Thanks.

Mashiul