エクセルファイル読込ダイアログ

OpenFileName = Application.GetOpenFilename("Microsoft Excel ブック,*.*")
    If OpenFileName = "False" Then Exit Sub
    Workbooks.Open Filename:=OpenFileName    
    OpenFileName = ActiveWorkbook.Name    
    Set OW = Workbooks(OpenFileName)