Insert a message question asking for a path

Sub open_file()

' declare variable
Dim pathname

' assign a value
pathname = "C:\objetive_file.xlsx"
Workbooks.Open pathname

End Sub

any suggestion for insert a message box asking for the path? in example

pathname = "here asking to the user for the path"

Thanks anyway...