loop igennem flere sheets for at gemme det som pdf med en macro

Hej

Jeg kan sagtens gemme et sheet som et pdf dokument, men jeg har flere ark i samme workbook, som jeg også ønsker at gemme, hvordan looper jeg bedst igennem, arkene så macroen laver en pdf fil af hvert ark.

Arkene som skal gemmes er fra X=5 til X=23
Koden indtil nu ser sådan her ud:

Sub Make_pdf_from_excel()
Dim x As Integer
Dim w As Worksheet
Dim wb As Workbook, table As Worksheet
Dim period As String
Dim pdfname As String
Dim sheets_before_reports As Integer


ThisWorkbook.Activate

period = Range("B1").Value
pdfname = Range("B2").Value

sheets_before_reports = 5
x = sheets_before_reports

Set wb = ThisWorkbook

Do
Set table = Worksheets(x + 1)
table.Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "H:\Ey\XX\YUJK\P7\" & period & "-" & pdfname & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
       
       


x = x + 1
Loop Until x = 10

End Sub