ダイアログでファイルを選択する、単純な例(雛形)。
┌──────────────────────────────────────┐
│Sub ファイルを開く()                                                        │
│    Dim ファイル名 As Variant                                               │
│    ファイル名 = Application.GetOpenFilename( _                             │
│                     FileFilter:="Microsoft Excelブック,*.xls?", _          │
│                     FilterIndex:=1, _                                      │
│                     Title:="ファイルを選択してください", _                 │
│                     MultiSelect:=False _                                   │
│                 )                                                          │
│    MsgBox ファイル名                                                       │
│End Sub                                                                     │
└──────────────────────────────────────┘