Populate Listbox With Hidden Sheet Names

iam trying to populate a listbox with only the workbooks hidden sheets. iam trying to adapt this code which i found in the forums

Private Sub UserForm_Initialize()
Dim wsSheet As Worksheet
Dim lngIndex As Long
With ThisWorkbook
Redim strarray(.Worksheets.Count - 1, 1) As String
lngIndex = 0
For Each wsSheet In .Worksheets
strarray(lngIndex, 0) = wsSheet. Name
lngIndex = lngIndex + 1
Next
End With
With ListBox1
.List = strarray
End With
End Sub