Sub TryOpenFileOpenFolder()
Dim FileNameRef1 As String, FileNameRef2 As String, myPath As String
FileNameRef1 = Application.WorksheetFunction.Text(Range("A1"), "General")
FileNameRef2 = Application.WorksheetFunction.Text(Range("J1"), "General")
myPath =...