Attribute VB_Name = "testbooknew3"
Sub テスト()

    Dim fname As String

    fname = Application.GetOpenFilename( _
        Title:="売上ファイルの選択")
    
    If fname <> "False" Then
        MsgBox "選択したファイルは" & fname & "です"
        Workbooks.Open filename:=fname
    End If

End Sub