Hyperlink if cell.value is in fileName?

[Blueridge227]

I'm writing a macro and am stuck on this action.

I have a folder of PDF files that have large filenames for example "Jul_CSC_2011_A10025.pdf"

I am showing just the short form in my spreadsheet column(E) example: "A10025"

I need code to hyperlink if the short form is found in the filename.

This is what I've started with:

Sub PdfSearchHype()

Dim cell As Range, strFile As String
ChDrive "C:"
ChDir "C:\PDF\

 

[Blueridge227]

Really stuck on this. Any help would be really appreciated.