質問: range("a1") on error resume next next asheet end sub これに付け加えるか全然違ってもかまいません。 何かよい方法を教えてください。 説明が不十分かもしれませんが、よろしくお願いします。
回答: 次のようにしてはどうでしょう。 sub test() dim asheet as worksheet for each asheet in worksheets asheet.select on error goto エラー処理 asheet.name = range("a1") next asheet エラー処理: asheet.name = range("a1") & "(2)" resume next end sub