Boa tarde!!

Apesar de não ter entendido, teste assim.

Sub NovoAno()
Dim ano As Integer
Dim anonovo As Integer

    Dim wkb As Workbook
    Dim wks As Worksheet
    Set wkb = ThisWorkbook
    
ano = Year(Date)
anonovo = ano + 1
    
    For Each wks In wkb.Worksheets
        wks.Unprotect
    Next wks
    'Essa rotina vc pretende usar um loop ?
        Cells.Replace What:=ano, Replacement:=anonovo, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    For Each wks In wkb.Worksheets
        wks.Protect
    Next wks
   
End Sub

Att

Bom dia Alexandre,

Sim, minha intenção com esse código era criar uma rotina que substituísse o ano atual pelo próximo ano em todas as planilhas do workbook, mas como as planilhas são bloqueadas eu criei esta rotina, se houver uma forma mais fácil de fazer isso eu também agradeço, pois utilizei o gravador de macros para fazer a rotina de substituição pois não sei como fazer isso.

O código deu certo no primeiro workbook e está dando erro nos outros.

Consegui resolver

O novo código teve apenas uma alteração, inseri "wks." antes do Cells

Sub NovoAno()
Dim ano As Integer
Dim anonovo As Integer

    Dim wkb As Workbook
    Dim wks As Worksheet
    Set wkb = ThisWorkbook
    
ano = Year(Date)
anonovo = ano + 1
    
    For Each wks In wkb.Worksheets
        wks.Unprotect
        
       wks.Cells.Replace What:=ano, Replacement:=anonovo, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
        wks.Protect
        
    Next wks
   
End Sub