Problem looping through sheets via vba

[Engineer Joe]

    For Each sht In ThisWorkbook.Sheets
        If sht.Name Like "DHU - *" Then
            sht.Visible = xlSheetVisible
        End If
    Next sht

I've got this code that keeps erroring out on mismatch 13. I'm not sure what's causing it. It gets through the loop like 8 times and then says that "sht" is nothing...and i've still got like 30 sheets to go. Maybe charts are causing it? Any help would be appreciated.

 

[Joe4]

Is this code in the workbook you are running it against, or another one?
Are all the "DHU" sheets hidden or visible at the beginning when the code is first initiated?

 

[Jeffrey Mahoney]

Change the code to

For Each Sht In ThisWorkbook.Worksheets

I guess worksheets is defined as non-chart sheets

 

[DanteAmor]

Hi @Engineer Joe. Thanks for posting on the forum.

Maybe charts are causing it?

That's right, the problem, as @Jeffrey Mahoney commented, is because a chart isn't really a sheet.
But if you had a hidden chart sheet and wanted to make it visible with For Each Sht In ThisWorkbook.Worksheets it won't work.

But if that's the case and you need to make sheets or charts visible, then declare sht as object, then it works for both:

Sub shvisible_2()
  Dim sht As Object
  For Each sht In ThisWorkbook.Sheets
    If sht.Name Like "DHU - *" Then
      sht.Visible = xlSheetVisible
    End If
  Next sht
End Sub

--------------
Let me know the result and I'll get back to you as soon as I can.
Sincerely
Dante Amor
--------------

 

[Jeffrey Mahoney]

But if that's the case and you need to make sheets or charts visible, then declare sht as object, then it works for both:

Good job Dante