複数のファイルを選択する場合は、GetOpenFilenameメソッドで、MultiSelectプロパティにTrueを指定する必要があります。
選択されたファイルパスは配列の形で返ってきますので、それをVariant型変数で受けて、各要素をFor〜Nextで取り出せるようにしてあげれば、 複数ファイルを同時に開くことが可能になります。

Public Sub Open_SingleSelect()
'一つのファイルを開く

    Dim SelectFile As String
    
    
    SelectFile = Application.GetOpenFilename("Excelファイル (*.xlsx), *.xlsx")
    If SelectFile <> "False" Then
        Workbooks.Open SelectFile
    Else
        MsgBox "キャンセルされました。"
    End If
    
End Sub

Public Sub Open_MultiSelet()
'複数のファイルを開く

    Dim FileList As Variant
    Dim i As Long
    
    
    FileList = Application.GetOpenFilename("Excelファイル (*.xlsx), *.xlsx", _
                                    Title:="複数のファイルを開く", MultiSelect:=True)
    If IsArray(FileList) Then
        For i = 1 To UBound(FileList)
            Workbooks.Open FileList(i)
        Next i
    Else
        If FileList <> "False" Then
            Workbooks.Open FileList
        Else
            MsgBox "キャンセルされました。"
        End If
    End If

End Sub