For Loop Not Catching All Sheets

[polyglot717]

This code is meant to iterate over all of my sheets, but it is skipping some. Can anyone help me figure out why?

Sub BuildIntegration()
 
'Setup Variables
 
    Dim NextRow As Integer
    Dim intSheet As Integer
    Dim WkshCount As Integer
 
    WkshCount = ActiveWorkbook.Worksheets.Count
 
'Turn off screen refresh
 
    'Application.ScreenUpdating = False
 
'Select first sheet of workbook
 
    Sheet1.Select
 
 
'Unhide Cells
 
    For intSheet = 0 To WkshCount - 1
 
        intSheet = intSheet + 1
        Sheets(intSheet).Select
        Columns("K:X").Select
        Selection.EntireColumn.Hidden = False
        'MsgBox "continue..."
    Next intSheet

[Luk3r]

I don't think this line is necessary when doing a loop from zero to a count:

intSheet = intSheet + 1

I assume that your program is actually skipping every other sheet.

[polyglot717]

Thank you! After posting - I dug in deeper and realized that it was skipping every other. Then the fix was apparent. When I posted it seemed like it was random sheets.

[Luk3r]

Glad you got it figured out without me even though we landed on the same answer. :)