Как пропустить PDFing Скрытый лист в VBA

Question

Таким образом, у меня есть этот код ниже, который PDF-файлы все в заданном диапазоне, но похоже, что он потерпит неудачу, если есть скрытая вкладка между двумя указанными диапазонами. Есть ли способ пропустить скрытую вкладку, а PDF виден только? Спасибо.

Sub createPdf()

Dim SheetArr() As String
Dim i As Integer
Dim startSheet As Integer
Dim endSheet As Integer

startSheet = Sheets(InputBox("Sheet name?", "CreatePDF")).Index
endSheet = Sheets(InputBox("Sheet name?", "CreatePDF")).Index
Dim folderPath As String
folderPath = InputBox("folderPath?", "CreatePDF")
Filename = InputBox("fileName?", "CreatePDF")
For Each ws In ActiveWorkbook.Worksheets
If ws.Index >= startSheet And ws.Index <= endSheet Then ' <> "Sheet3" Then
    ReDim Preserve SheetArr(i)
    SheetArr(i) = ws.Name

    i = i + 1
    Debug.Print (ws.Name)

End If
Next

Sheets(SheetArr).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, 
Filename:=folderPath & Filename, _
openafterpublish:=False, ignoreprintareas:=False

MsgBox "All done with pdf's"

End Sub