Guru do Excel e Power BI

Sub SalvaPDF()
    Dim PdfCaminho As String
    Dim PdfNome As String
  
    UltimaAba = ActiveWorkbook.Sheets().Count 'Conta quantas abas tem na planilha
    
    For i = 1 To UltimaAba
    
    PdfCaminho = VBA.Environ("USERPROFILE") & "\Desktop\" 'Diretório onde irá salvar o documento
    PdfNome = Range("a1").Value 'Aqui você precisa referenciar uma célula que irá dar nome a planilha, precisa ser a mesma célula em todas as abas, se o nome for repetido ele irá salvar por cima.
    
    'Caso queira uma mensagem de OK de aba por aba
    'MsgBox "O arquivo " & PdfNome & " foi salvo em " & PdfCaminho & ".", vbOKOnly, "Salvo"
  
    ThisWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    PdfCaminho & PdfNome, Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
    Call TrocaAba
    Next
End Sub

Sub TrocaAba()
    On Error Resume Next
    Dim x As Integer

    UltimaAba = ActiveWorkbook.Sheets().Count

    If ActiveSheet.Index = UltimaAba Then
        x = 0
    Else
        x = ActiveSheet.Index
    End If

    Workbooks("Pasta1.xlsm").Sheets(x + 1).Activate 'Nome da planilha
End Sub