[Resolvido]Alterar legenda de relatórios

Public Sub fncAlteraLegenda()
Dim obj As Object
For Each obj In CurrentProject.AllReports
    DoCmd.OpenReport (obj.Name), acViewDesign, , , acHidden
    Reports(obj.Name).Caption = "Site UsandoAccess"
    DoCmd.Close , obj.Name
    DoCmd.Save acReport, obj.Name
Next
End Sub

Private Sub Report_Open(Cancel As Integer)
Me!Cabeçalho.Caption = Me.Caption
End Sub

Reports(obj.Name).Controls("NomeDoRótulo").Caption = "Penalonga Silva - Eleição 2022"

Reports(obj.Name).Controls(0).Caption = "Penalonga Silva - Eleição 2022"

Public Sub fncAlteraLegenda()
Dim obj As Object
Dim TextoAtual$
Dim TextoNovo$
Dim j As Byte
TextoAtual = "Controle de Eleitores - Paulo Coelho"
TextoNovo = "Controle de Eleitores - Avelino Sampaio"
On Error Resume Next
'percorre todos os relatórios
For Each obj In CurrentProject.AllReports
    'abre o relatório no mod design e oculto
    DoCmd.OpenReport (obj.Name), acViewDesign, , , acHidden
    'altera o título do relatório para o novo texto
    Reports(obj.Name).Caption = TextoNovo
    j = 0
    'percorre pelos quatro primeiros controles do relatório
    'com o objetivo de buscar pelo texto atual
    For j = 0 To 3
        'verifica se o controle(rótulo) contem o texto atual
        If Reports(obj.Name).Controls(j).Caption = TextoAtual Then
            'verifica se ocorreu um erro (geralmente o 438)
            If Err.Number = 0 Then
                'o rótulo correto foi identificado e será alterado para o novo texto
                Reports(obj.Name).Controls(j).Caption = TextoNovo
                'encerra o laço For
                Exit For
            Else
                'Ocorreu um erro. Limpa o erro para nova verificação
                Err.Number = 0
            End If
        'verifica se já ocorreu a mudança do rótulo para o novo texto
        ElseIf Reports(obj.Name).Controls(j).Caption = TextoNovo Then
            'mudança de texto já ocorrida, encerrando o for
            Exit For
        End If
    Next
    'fecha o relatório
    DoCmd.Close , obj.Name
    'salva as mudanças no relatório
    DoCmd.Save acReport, obj.Name
Next
MsgBox "Atualização concluída ...", vbInformation, "Aviso"
End Sub