質問: vbaで実行時エラー 1004 がでる excel2013です。以下のコードでエラーがでます。 どのシートがアクティブでもデータを閉じる時に特定のシート(sheet1)のa行の最終行の一つ下をアクティブにし上書き保存して閉じるようにしたいです。 以下記述したコードです。 sub auto_close() worksheets(1).activate range("a60000").end(xlup).offset(1).select 'aセル60000から最終行のセルの一つ下に下がる activeworkbook.save end sub 閉じるときは問題ないのですが、開いたときにエラーがでます。 以下エラー文です。 実行時エラー 1004 'worksheets'メソッドは失敗しました'_global'オブジェクト どこを直せばいいのでしょうか? アドバイス願います。
回答: こちらで試してみましたがエラーはでないようですが。 sub auto_close() worksheets(1).activate cells(rows.count, "a").end(xlup).row.offset(1).select 'aセル60000から最終行のセルの一つ下に下がる activeworkbook.save end sub としてはどうでしょうか。