下記のように変更してもだめでしょうか? Set LoActiveBook = .Workbooks.Open(App.Path & "\" & "DL85.xlt") '対象シートオープン Set LoActiveSheet = LoActiveBook.Worksheets("MEISAI")