>>595
Excel 2002以降なら FileDialog オブジェクトを使う方法もある

Sub file()
With Application.FileDialog(msoFileDialogFilePicker)
　　.InitialFileName = "c:\windows\temp"
　　If .Show Then
　　　　Debug.Print .SelectedItems(1)
　　End If
End With
End Sub