Segue exemplo...

Não seria isso, mas isso, pois ainda não apareceu em array

Private Sub Worksheet_Activate()

Application.EnableEvents = False
Application.ScreenUpdating = False

Dim sheetsArray As Variant

sheetsArray = Array("Plan1", "Plan2", "Plan3")

ThisWorkbook.Sheets(sheetsArray).Range("D1").FormulaLocal = "XXX.XXX.XXX-XX"
          
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

Veja se é isto :

Private Sub Worksheet_Activate()

Application.EnableEvents = False
Application.ScreenUpdating = False

Dim sheetsArray As Variant

sheetsArray = Array("Plan1", "Plan2", "Plan3")

    For Each x In sheetsArray
        ThisWorkbook.Sheets(x).Range("D1").FormulaLocal = "XXX.XXX.XXX-XX"
    Next x

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

[]s

Deu certo Mauro ! Obrigado !
Para ter efeito tem q fechar todo excel !