Option Explicit

Sub teste()


'este código percorre todas as planilhas
'cujo nome começa com "20"
'espero que consiga adaptar para a sua necessidade

Dim plan As Object
For Each plan In ThisWorkbook.Sheets

If Left(plan.Name, 2) = "20" Then

'aqui você pode colocar o código para cadastrar
'para pegar o nome da planilha que vai cadastrar,
'utilize plan.name
'exemplo: sheets(plan.name).range("A1").value = me.textbox1.text
'acho que já está bem mastigadinho e que você consegue fazer
End If

Next plan

End Sub

Sim já tem anos de 2015 a 2023, ora queria lançar nestes, assim como, num ano novo que cria-se, só o nome na primeira coluna, e isto para simplificar o código e não ficar pesado.
Será possível

Option Explicit

Sub teste()


'este código percorre todas as planilhas
'cujo nome começa com "20"
'espero que consiga adaptar para a sua necessidade

Dim plan As Object
For Each plan In ThisWorkbook.Sheets

If Left(plan.Name, 2) = "20" Then

'aqui você pode colocar o código para cadastrar
'para pegar o nome da planilha que vai cadastrar,
'utilize plan.name
'exemplo: sheets(plan.name).range("A1").value = me.textbox1.text
'acho que já está bem mastigadinho e que você consegue fazer
End If

Next plan

End Sub

Sim isso consigo fazer, mas se criar um novo ano já não vai inscrever nesse ano, tenho que ir ao vba e acrescentar, eu queria era uma outra forma de fazer isso. Grato

Option Explicit

Sub teste()

'este código percorre todas as planilhas
'cujo nome começa com "20"
'espero que consiga adaptar para a sua necessidade

Dim plan As Object
For Each plan In ThisWorkbook.Sheets

If Left(plan.Name, 2) = "20" Then

'aqui você pode colocar o código para cadastrar
'para pegar o nome da planilha que vai cadastrar,
'utilize plan.name
'exemplo: sheets(plan.name).range("A1").value = me.textbox1.text
'acho que já está bem mastigadinho e que você consegue fazer
End If

Next plan

End Sub

Boas Klarc28
Não está a dar, dá erro.
Att.,
RM

Envie o código que contém o erro e explique qual é o erro.

Boa noite
Dá erro no sublinhado, grato.
Att.,
RM

Option Explicit
Sub teste()
Dim plan As Object
Dim UltimaLinhaRow As Long
For Each plan In ThisWorkbook.Sheets
If Left(plan.Name, 2) = "20" Then
ThisWorkbook.Worksheets(plan.Name).Activate
UltimaLinhaRow = Cells(Rows.Count, 1).End(xlUp).Row
Cells(UltimaLinhaRow + 1, 1) = Me.txt_paroquiano_Add.Text
Cells(UltimaLinhaRow + 1, 2) = Me.TextBox3.Text
End If
Next plan
End Sub

Quando for colocar código neste fórum, clique no botão Code.
No lugar de Me, coloque o nome do Userform em que está a caixa de texto.

Fantástico Klarc28, ás vezes as coisas mais evidentes escapam na nossa perceção, obrigado.