Tabbladen los als PDF of excel bestand opslaan

[docenthems]

Ik heb een excel bestand gemaakt waarin alle gegevens op het eerste blad worden ingevoerd en deze zijn vervolgens gekoppeld aan diverse losse tabbladen.
Nu wil ik graag een PDF bestand hebben per tabblad of een los excel bestand per tabblad, maar de naam van dit nieuwe bestandje moet gelijk zijn aan de naam van het tabblad.
Is dit mogelijk en zo ja hoe?

 

[JEC.]

Vb:

Sub j()
pad = "C:\Users\...\...\...\"
    For i = 1 To Worksheets.Count
     Sheets(i).ExportAsFixedFormat 0, pad & Sheets(i).Name, , , , , , 1
    Next i
End Sub

 

[HSV]

Of:

sub hsv()
dim sh as worksheet
for each sh in sheets
 sh.exportasfixedformat 0, "c:\temp\" & sh.name
 next sh
end sub