シートの名前を変更する際に必要なオブジェクトエラー - excel-vba、vba、excel

私は基本的なコードブロックだと思ったObject Requiredエラーは引き続き発生します。私は複数のシートを持つワークブックを持っていて、繰り返して名前を変更したいと思っています。私はコメントアウトされたブロックに見られる4つの異なる方法を試しましたが、これを達成するにはすべて同じエラーが発生しました。

Sub ModifyWS()

Dim wb As Workbook
Dim a As String
Dim i As Integer
Dim nm As String

Set wb = ActiveWorkbook

For i = 2 To Application.Sheets.Count
a = "BOE" & CStr(i - 1)

"Attempt 1
Sheets(i).Name = a

"Attempt 2
"Application.Sheets(i).Name = a

"Attempt 3
"Set nm = Sheets(i).Name
"nm = a

"Attempt 4
"wb.Worksheets(i).Name = a
Next

End Sub

あなたの助けは常に高く評価されます。

ありがとうございました、 ジョー

回答：

コードは新しいスプレッドシートで機能しました。どういうわけか別のモジュールでワークブックを壊してしまったようですが、新しいバージョンを作成するとすべてが動作するようになりました。