VBA ファイル選択ダイアログを表示時にEXCELファイルのみ表示する

Private Sub CommandButton1_Click()

    Dim strFileName As String

    ' ファイル選択ダイアログ表示
    strFileName = Application.GetOpenFilename( _
                        FileFilter:="EXCELファイル,*.xls;*.xlsx" _
                        , Title:="title" _
                        , MultiSelect:=False _
                    )
    ' オープン
    If strFileName <> "False" Then
        Workbooks.Open Filename:=strFileName
    Else
        MsgBox "キャンセル"
    End If    
    
End Sub