Question

I’m building a report in excel.

• The finishing step is to select a large proportion of the sheets (all the ones to the right of the “Cover” page including the cover itself) and print them to PDF.
• The list of sheets can vary.

I’m currently doing this manually, but it seems the sort of thing that can be automated if you know the correct command.

Is it possible to do something along the following line?

Sheets(Array(Sheets("Cover")..Sheets(Worksheets.Count())).Select
ActiveSheet.ExportAsFixedFormat

Answer 1

I don’t think there’s a one-liner for this.

Sub Tester()

    Dim i As Long, fnd As Boolean

    For i = 1 To ActiveWorkbook.Sheets.Count
        With ActiveWorkbook.Sheets(i)
            If .Name = "Cover" Then
                fnd = True
                .Select
            Else
                If fnd Then .Select False
            End If
        End With
    Next i

End Sub