zkus tohle
Sub otevři()
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = "\\sítovýdisk\složka\podsložka\"
.Title = "Vyber adresar"
.Show
sxs = .SelectedItems(1)
Workbooks.Open Filename:=sxs
End With
End Subcitovat
Sub otevři()
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = "\\sítovýdisk\složka\podsložka\"
.Title = "Vyber adresar"
.Show
sxs = .SelectedItems(1)
Workbooks.Open Filename:=sxs
End With
End Subcitovat