Hello to all!

Here is my problem: I need to know the name and path of a file that is
selected through "Application.GetOpenFilename()." However whenever I try to
run the code "Run-time error '9': Subscript out of range" message comes up.
I thought that it could be the file path is too long(files on the network)
however when I selected a local file and my hd the same message still came up.

Here is the code:
Private Sub CommandButton1_Click()
Dim file As String, Path1 As String, name As String
file = Application.GetOpenFilename()
Path1 = Workbooks(file).Path
name = Workbooks(file).Name
End Sub