Bom dia!

Utilizo este código VBA (o qual funciona perfeitamente) para salvar relatórios em PDF:

Sub SaveAsPDF()
  
Dim fName As String
With Worksheets("Dolomitico 40-10")
    fName = .Range("L8").Value '& " " & .Range("N6").Value '& " " & .Range("D5").Value
End With
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:Documents and SettingslabMeus documentos" & fName, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
 
End Sub

Mas como são varias planilhas (ABAS) à serem salvas gostaria de deixar mais dinâmica, pois o código referencia apenas uma planilha e eu pretendendo que seja para a planilha ativa, alguém pode me dar uma força?
Desde já agradeço!

Doni