Imprimir cada hoja de excel cada una en un archivo diferente y con el nombre de la hoja

Necesito imprimir cada hoja de excel cada una en un archivo diferente y con el nombre de la pestaña. Con esta consigo imprimir todas las hojas como quiero pero me faltaría que se guarde cada hoja con un nombre distinto (el mismo de la hoja).

¿Es posible?

Sub Macro2()
Dim MiArchivo As String
Range("A2") = ActiveSheet.Name
MiArchivo = "C:\Users\Saezsa\OneDrive - Ecolab\CARPETAS PARA COMPARTIR\COMISIONES\Comisiones " + Cells(2, 1) + ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MiArchivo, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub