Não é possível usar barra no nome da guia.

Sub Macro1()
'
' Macro1 Macro
'

'
Dim num As Integer
num = ThisWorkbook.Sheets.Count + 1
    Sheets.Add After:=ActiveSheet
    'Sheets("Plan2").Select
    ActiveSheet.Name = "00" & num & "-" & Year(Date)
    
End Sub

Klarc28, boa noite!

Desculpe mais eu me expressei errado.

Na verdade eu preciso do numerador dentro da planilha, tipo na célula H3.

Assim sim a cada nova aba, o numerador gere seu próprio número.

Me desculpe, rsrsrsrsr.

Sub Macro1()
'
' Macro1 Macro
'

'
Dim num As Integer
num = ThisWorkbook.Sheets.Count + 1
    Sheets.Add After:=ActiveSheet
    'Sheets("Plan2").Select
    ActiveSheet.Range("H3").Value = "00" & num & "/" & Year(Date)
   ' ActiveSheet.Name = "00" & num & "-" & Year(Date)
    
End Sub

Boa noite Klarc28,

Tudo bem?

Estou disponibilizando o arquivo para um melhor entendimento.

Preciso que a cada novo arquivo (plan1,Plan2,Plan3,....) a célula J1 (sombreada na cor amarela) faça sua própria autonumeração.

É possível fazer através uma macro e/ou vba?

Obrigado mais uma vez pela atenção.

O numerador vai seguir a ordem em que estão as abas, da esquerda para a direita.
Se você alterar a posição da aba, altera a numeração de todas as abas.
Vai ser acionado o código quando adicionar uma aba ou quando ativar uma aba.

Option Explicit



Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    
    Dim num As Integer
    For num = 1 To ThisWorkbook.Sheets.Count
        
        If num < 10 Then
            Sheets(num).Range("J1").Value = "00" & num & "/" & Year(Date)
        ElseIf num < 100 Then
            Sheets(num).Range("J1").Value = "0" & num & "/" & Year(Date)
            
        Else
            Sheets(num).Range("J1").Value = num & "/" & Year(Date)
            
        End If
    Next num
End Sub

Klarc28, boa tarde!

Desculpa me demora em responder. Rsrsrsrsr

Ficou quase pronto aqui, o problema é que minha planilha deverá seguir a ordem da direita para esquerda.

É possível fazer um ajuste no código?

Obrigado.

Option Explicit



Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    
    Dim num As Integer
    Dim I As Integer
    num = 0
    For I = ThisWorkbook.Sheets.Count To 1 Step -1
        num = num + 1
        If num < 10 Then
            Sheets(I).Range("J1").Value = "00" & num & "/" & Year(Date)
        ElseIf num < 100 Then
            Sheets(I).Range("J1").Value = "0" & num & "/" & Year(Date)
            
        Else
            Sheets(I).Range("J1").Value = num & "/" & Year(Date)
            
        End If
    Next I
End Sub

Klarc28,

Muito obrigado pela solução.