Error de objeto requerido en el cambio de nombre de hojas: excel-vba, vba, excel

Tengo lo que pensé que era un bloque de código básico.pero sigue recibiendo el error Objeto Requerido. Tengo un libro de trabajo con varias hojas y quiero recorrerlas para cambiarles el nombre. He intentado cuatro métodos diferentes, vistos en los bloques comentados, para lograr esto, pero todos tienen el mismo error.

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

Su ayuda es siempre apreciada.

Gracias, Joe

Respuestas

El código funcionó en una nueva hoja de cálculo. Parece que de alguna manera corrompí mi libro de trabajo con otro módulo, pero al crear una versión nueva, todo comenzó a funcionar.