Macro to open pdf file based on cell value

Hello,

I have managed to put up following codes to open pdf file and folder containing other files.

Sub openfile()
Dim FileNameRef As String
FileNameRef = Application.WorksheetFunction.Text(Range("D1"), "d mmm")
ThisWorkbook.FollowHyperlink "C:\Users\Laxman\Documents\" & FileNameRef & ".pdf"

Sub openfile2()
ThisWorkbook.FollowHyperlink "C:\Users\Laxman\Documents\"
End Sub

Can you guys please help in combining the above two macros, so that the macro will first try to open the pdf file and if it cannot find the file then open folder instead. Also to set an error message, if it cannot even open folder.

Thank You!

Thanks for helping me out kevin. When i run the macro without file in the folder, it is directly showing error message instead of opening folder.
The macro was supposed to look for file. If the file is not found, open folder with out any error msg. If the user cannot access the folder then error msg be in place.

Thank you for your time!

That did not fix kevin. Macro is resulting only Message box. Following is the code.

Sub TryOpenFileOpenFolder()

    Dim FileNameRef As String, myPath As String
    FileNameRef = Application.WorksheetFunction.Text(Range("D1"), "d mmm")
    myPath = "C:\Users\Laxman\Documents\"

    On Error Resume Next
 ThisWorkbook.FollowHyperlink myPath & FileNameRef & ".pdf"
        If Err.Number = 0 Then
            Exit Sub
        Else
 Err.Number = 0
 ThisWorkbook.FollowHyperlink myPath
        If Err.Number <> 0 Then MsgBox "File " & FileNameRef & " not found" & vbNewLine & "Folder " & myPath & " not found"
        End If
End Sub

I'm sorry kevin. The problem was that, i logged onto my system with different account, so my path was not holding good.
The macro is working perfect. THANK YOU! very very much.