VBA - knap "Gem som pdf" medtager udvalgte faner, men ikke den aktuelle.

Hej

Jeg har en excel-fil, som indeholder en del faner. I fanen "Projektkontrolplan" har jeg en knap ("Gem som pdf"), som medtager udvalgte faner, men ikke den aktuelle fane jeg befinder mig på (projektkontrolplanen). Denne "Projektkontrolplan"-fane vil jeg meget gerne have med, som den første side i pdf'en. Kan I hjælpe?

Jeg er ikke 100-meter mester i VBA og har fået assistance til programmeringen, så jeg håber på en løsning, som jeg kan få til at virke, uden at der ændres nævneværdigt på det nuværende, som virker upåklageligt.

Sub Gemsompdf()

' * ' Initialize
      On Error Resume Next


' * ' Define variables
      Dim FirstSheet As String
      Dim WS As Excel.Worksheet

      Dim PDFFile As String
      PDFFile = Application.GetSaveAsFilename(FileFilter:="PDF (*.PDF), *.PDF")
      If Len(PDFFile) < xlLess Then GoTo ES:    ' User clicked [Cancel]


' * ' Find first sheet to export
      For Each WS In ActiveWorkbook.Worksheets
            If UCase$(WS.Range("H9").Value) = "GYLDIG" And WS.Visible = xlSheetVisible Then
                  FirstSheet = WS.Name
                  WS.Select
                  Exit For
            End If
      Next
      If FirstSheet = "" Then GoTo ES:          ' No valid worksheet found


' * ' Select the rest of the worksheets to be exported
      For Each WS In ActiveWorkbook.Worksheets
            If UCase$(WS.Range("H9").Value) = "GYLDIG" And WS.Visible = xlSheetVisible Then WS.Select False
      Next


' * ' Create PDF
      Err.Clear
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
      If Err.Number <> 0 Then Debug.Print Err.Number & ", " & Err.Description


ES: ' End of Sub
      Set WS = Nothing
     
      Worksheets(3).Select

End Sub

På forhånd tak

Vh CHC