Excel opslaan als PDF met betsandsnaam inhoud cel

Allen,

Ik heb een excel bestand met 10 tabbladen (blad 1, blad 2 enz)
Op blad 1 maak ik via een macro een selectie van bv drie tabbladen ( de rest verberg ik)
Ik heb meerdere macro's aangemaakt om meerdere soorten selecties te kunnen maken.
Dus de ene keer heb ik 3 tabbladen en bij een andere macro 7.
Blad 1 blijft echter bij elke selectie zichtbaar.
Wie heeft voor mij een macro die de op dat moment zichtbare tabbladen opslaat in 1 PDF met de naam uit blad in cel H2 ?
Alvast bedankt

Welkom op het forum
misschien kan je dit eens bekijken.

https://www.helpmij.nl/forum/announcement.php?f=5

Test deze eens:

Hartstikke mooi dit.

Dit is wat ik zocht.
En ook weer een hoop geleerd.
Hartelijk bedankt.

Wat moet ik toevoegen als ik de pdf in de volgende map wil hebben :

C:checklist in excel/projecten

De map bestaat al en hoeft dus niet gemaakt te worden.

Alvast bedankt

Dat heb je zelf al gezegd, dat staat in cel H2 op Blad1.

Misschien heb ik het niet goed uitgelegd.

De naam van het bestand staat in H2, niet de map waarin hij opgeslagen moet worden.
Ik ben zelf aan het knutselen geweest maar krijg een foutmelding.
Ik heb tablad "blad 1"veranderd in "voorblad"

Code
Sub Sheets2PDFtestmetmap()
Dim Paginas() As String
Dim i As Integer

For Each sh In ThisWorkbook.Sheets
If sh.Visible Then
ReDim Preserve Paginas(i)
Paginas(i) = sh.Name
i = i + 1
End If
Next sh

Sheets(Paginas).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C\checklist in Excel\projecten" & Sheets("Voorblad").Range("H2").Value, _
OpenAfterPublish:=False 'Zet deze op True om de PDF te openen
Sheets("voorblad").Select
End Sub

Nu geeft hij een foutmelding en wordt de volgende regel geel :

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C\checklist in Excel\projecten" & Sheets("Voorblad").Range("H2").Value, _
OpenAfterPublish:=False 'Zet deze op True om de PDF te openen

Wat doe ik fout?

Plaats code tussen codetags want nu verdwijnen er \ tekens waar ze wel horen te staan.

Tevens heb je hier:
Geen dubbele punt achter de schijfletter staan.

Edmoor,

Hartstike bedankt voor je hulp en advies.

Het is helemaal voor elkaar.