Finding and Hyperlinking to a file
 

I want to search all subfolders in a given directory to see if there exists
an excel wb whose name begins with the contents of a specified cell. If it
does, then I would like to hyperlink the specified cell to that file... else
nothing

i.e.
StoreNum = Range("A1") <--- Criteria
??????????????????????????
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:= _
"S:\Special Orders\...\" & StoreNum & "*.xls"

I hope that makes sense to someone.