質問: "" End Sub
回答: 実際のコードをそのままコピペしたものですか。だとしたら、 `Dim adook As Workbook` は、正しくは、 `Dim abook As Workbook` ですね。 ただ、エラーメッセージが異なるので別に原因があるのかも。 エラーが出たときに、エラーダイアログに「デバッグ」ボタンはないですか。 それを押すとエラーの発生したコードが選択表示されると思いますので、 そのコードを提示してください。 追記 m6uさんの回答で解決したとすると、原因は、 `asheet.Range(Cells(2, 13), Cells(rowsData, 13)).Value = ""` の `Cells` に `asheet.` が付いてないことかな。 `asheet.Range(asheet.Cells(2, 13), asheet.Cells(rowsData, 13)).Value = ""` とすべきですね。前者だと asheet がアクティブなとき以外はエラーになります。 `Cells(2, 13)`は、`ActiveSheet.Cells(2, 13)` という意味になりますので。 ということで、推奨のコードは下記になります。 ``` With asheet .Range(.Cells(2, 13), .Cells(rowsData, 13)).ClearContents End With ```