sheet names to pdf bookmarks

Option Explicit
Option Base 1
Option Private Module
Sub Print2CutePDF()
Dim wb As Workbook
Dim ws As Worksheet
Dim wsActive As Worksheet
Dim strCurrentPrinter As String
Dim strPDFprinter As String
Dim strSheets() As String
Dim strFirstSheet As String
Dim intIndex As Integer
Dim rng As Range
'
strCurrentPrinter = Application.ActivePrinter
Set wsActive = ActiveSheet
strFirstSheet = ""
intIndex = 1
'
Set wb = ThisWorkbook
Set ws = wb.Worksheets("Control Sheet")
ws.Activate
strPDFprinter = ws.[PDF_Printer].Value
For Each rng In ws.[PrintWorksheets]
    ReDim Preserve strSheets(1 To intIndex)
    strSheets(intIndex) = rng.Value
    intIndex = intIndex + 1
    If strFirstSheet = "" Then
        strFirstSheet = rng.Value
    End If
Next rng
' select all sheets to be printed:
    wb.Sheets(strSheets).Select
    wb.Sheets(strFirstSheet).Activate
' print to PDF
    Application.ActivePrinter = strPDFprinter
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=strPDFprinter, Collate:=-True
    '
' ungroup sheets
    wb.Worksheets(strFirstSheet).Select
    '
    On Error Resume Next
    '
    Application.ActivePrinter = strCurrentPrinter
    wsActive.Activate
    Set rng = Nothing
    Set wsActive = Nothing
    Set ws = Nothing
    Set wb = Nothing
End Sub