Macro to go to a file path is not working

[rlcurlee67]

I have a macro in my Excel file that is working, but not correctly. It will open the last file path I went to.
What is wrong with my code? I want it to open that file path below and let me chose the file.

What would be ideal is if it had a message box and I could type in the filename.

Sub test()
Dim myFile As String
Dim YourFolderPath As Variant
YourFolderPath = "X:\UTCS\Region\USA\Assets\GOM_DEV\Julia\SubSrfc\Rsvr_Mgmt-Surv\Surv-Data\Prod\St. Malo Morning Report - by Prod Date\2022"
myFile = Application.GetOpenFilename
If myFile = "False" Then Exit Sub
'MsgBox myFile
End Sub

 

[johnnyL]

Look here

 

[rlcurlee67]

Not sure how to fix. I added the ChDir and it still took me to my latest address.

 

[johnnyL]

Something like:

Sub test()
Dim myFile As String
Dim YourFolderPath As Variant
YourFolderPath = "X:\UTCS\Region\USA\Assets\GOM_DEV\Julia\SubSrfc\Rsvr_Mgmt-Surv\Surv-Data\Prod\St. Malo Morning Report - by Prod Date\2022"
ChDir YourFolderPath
ChDrive "X"
myFile = Application.GetOpenFilename
If myFile = "False" Then Exit Sub
'MsgBox myFile
End Sub

 

[rlcurlee67]

Thank you so much. That worked.

 

[johnnyL]

Glad to help.

 

[rlcurlee67]

Can I add a code allow me to type in the file name instead of scrolling through the list to open? If so, what is that code to add?