Макрос, корректная проверка на скрытые листы

[w00t]

Подскажите, пожалуйста, по части кода. В книге есть Hidden и VeryHidden листы (нужны только видимые), как правильно видоизменить (см. ниже):

Function addListsToComboBox(myCombobox As ComboBox) As Integer
Dim wb As Workbook
Dim sh As Worksheet
Dim shActName As String
Set wb = ActiveWorkbook

shActName = ActiveSheet.name


f = wb.name
returnValue = 0
VisibleListCount = 0

For j = 1 To wb.Sheets.Count
 Set sh = wb.Sheets(j)
   If sh.Visible = True Then
      VisibleListCount = VisibleListCount + 1
   End If
Next


For j = 1 To VisibleListCount
 Set sh = wb.Sheets(j)
   If sh.Visible = True Then
      myCombobox.AddItem (sh.name)
      If sh.name = shActName Then
         returnValue = j - 1
      End If
   End If
Next

addListsToComboBox = returnValue
End Function