Da pra fazer por VBA, creio ser mais pratico pois você irá trabalhar em apenas em uma tela... poupando tempo...

Segue o código... ai tem que ir criando até 100

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets("Plan1").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "1"
    Sheets("Plan2").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "2"
    Sheets("Plan3").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "3"
    Sheets("Plan4").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "4"
    Sheets("Plan5").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "5"
    
End Sub

.....

Ajuda?

Boa noite Marcelo

Outra opção com macro.

Para instalar o código:
Clique em ALT+F11(apara acessar o editor de VBA --> Guia Inserir ---> Módulo --> no Módulo que abrir copie e cole o código abaixo.
ALT+Q para retornar a planilha.

Para testar --> ALT+F8 --> Executar

Sub NumeraA1()
 Dim ws As Worksheet, k As Long
  k = 1
  For Each ws In ThisWorkbook.Worksheets
   With ws.Range("A1")
    .NumberFormat = "@"
    .Value = Format(k, "000")
   End With
   k = k + 1
  Next ws
End Sub

Créditos ao Osvaldomp

Se a resposta foi útil, clique na mãozinha, que fica do lado da ferramenta Citar.

Dê retorno.

[]s

Testei e deu certo....muito obrigado