マクロでファイルを開くダイアログボックスを表示するには、Application.GetOpenFilenameを使用します。
Dim FileType, Prompt As String
FileType = "CSV ファイル (*.csv),*.csv"
Prompt = "CSV File を選択してください"
FileNamePath = Application.GetOpenFilename(FileType, , Prompt)
第1引数で指定したファイルが指定され、第3引数に指定した文字列がダイアログのタイトルになります。