Here sample VBA that I have create:
Sub Insert_Path_Date01() Dim Get_Path As String Get_Path = Application.GetOpenFilename() Worksheets("Control")