Search through folders and subfolders to find a file and open it.

[lance01]

Hi I have started this macro but I am having a problem (Labeled '????? below).
I am tring to find a file which is typically .doc/docx/.pdf within a folder or its subbfolders then open it if found.

Can anyone modify my solution below to to alos searchthrough all subfolders?
file = Dir(ThisWorkbook.path & "\" & "SOMErandomFOLDER\" & "SOMEotherRandomFOLDER\" &docrefno & "*" & issue & ".*")
Thanks for yout time+help


Sub documentopener()
Dim addup As String
Dim docrefno As String
Dim issue As String
Dim path As String
Dim file As String

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Turns off screen updating and displays to stop screen flashing
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' sets variables
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
docrefno = Range("b" & (ActiveCell.Row)).Value
issue = Range("c" & (ActiveCell.Row)).Value

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Checks the user wants to run the macro Y/ N
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Response = MsgBox("Are you sure you want to open " & docrefno & " Issue " & issue & "?", vbYesNo)
If Response = vbNo Then Exit Sub


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Searches specific folder and all its subfolders until it finds a file that has the title of the variables
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'???????????

file = Dir(ThisWorkbook.path & "\" & "FOLDER\" & docrefno & "*" & issue & ".*")

ActiveWorkbook.FollowHyperlink (file), NewWindow:=True


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Turns back on Screen and Display Alerts
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub