Macro guardar pestañas como pdf y con nombre de pestaña

Sigue las Instrucciones para ejecutar la macro
1. Abre tu archivo de excel
2. Para abrir Vba-macros y poder pegar la
macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro

5. Para ejecutarla presiona F5

Sub
hojas_pdf()
'Por.DAM
For Each h
In Sheets
    h.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ActiveWorkbook.Path &
"\" & h.Name & ".pdf"
Next
End Sub

Saludos. Dante Amor
No olvides finalizar la pregunta.

Gracias por tu pronta respuesta,

Inserte la macro dentro del modulo pero me marca un error de Syntax

Te resalto en negrita la parte que se marca en amarillo y lo que esta subrayado me lo pone en color rojo

Sub hojas_pdf()
'Por.DAM
For Each h
In Sheets
h.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path &
"\" & h.Name & ".pdf"
Next
End Sub

Muchas gracias por tu atencion

Creo que copié mal la macro, prueba con esta:

Sub hojas()
'Por.DAM
For Each h In Sheets
    h.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ActiveWorkbook.Path & "\" & h.Name & ".pdf"
Next
End Sub