My macro runs on hidden sheets (and it shouldn't)

Hi!

I am super-beginner in the macro world. We have a macro that reads certain columns and rows in all sheets of different excel files, and then writes them in a new excel file. My problem is that it even considers the hidden sheets and I don't know why. This creates me problems to organize information in pivot tables. Could you help me?

I = 1
For Each objFile In objFolder.Files
Workbooks.Open (objFile)

For csht = 1 To ActiveWorkbook.Sheets.Count 'worksheet or sheets
With ActiveSheet
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
For teller = 11 To lastRow
'print no of worksheets
Cells(I + 1, 3) = ActiveWorkbook.Worksheets.Count
'print sheetname
Cells(I + 1, 4) = Sheets(csht).Name
Range(Cells(I + 1, 5), Cells(I + 1, 25)) = Sheets(Sheets(csht).Name).Range("A" & teller & ":Z" & teller).Value
I = I + 1
Next teller
Next csht



Thank you!

To omit hidden sheets you need to tell the code to do such. Also, make sure your sheet references are what you want. Each range should have a proper sheet reference in your scenario.

For csht = 1 To ActiveWorkbook.Sheets.Count 'worksheet or sheets
    If Sheets(csht).Visible = xlSheetVisible Then 'will only apply to visible sheets
        With ActiveSheet
            lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        End With
    
        For teller = 11 To lastRow
            'print no of worksheets
            Cells(I + 1, 3) = ActiveWorkbook.Worksheets.Count
            'print sheetname
            Cells(I + 1, 4) = Sheets(csht).Name
            Range(Cells(I + 1, 5), Cells(I + 1, 25)) = Sheets(Sheets(csht).Name).Range("A" & teller & ":Z" & teller).Value
            I = I + 1
        Next teller
    End If
Next csht

You can work with the Visible property.

I = 1
For Each objFile In objFolder.Files
Workbooks.Open (objFile)

For csht = 1 To ActiveWorkbook.Sheets.Count 'worksheet or sheets
If ActiveSheet.Visible = True Then
With ActiveSheet
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
For teller = 11 To lastRow
'print no of worksheets
Cells(I + 1, 3) = ActiveWorkbook.Worksheets.Count
'print sheetname
Cells(I + 1, 4) = Sheets(csht).Name
Range(Cells(I + 1, 5), Cells(I + 1, 25)) = Sheets(Sheets(csht).Name).Range("A" & teller & ":Z" & teller).Value
I = I + 1
End If
Next teller
Next csht

First of all sorry Arkadi for the multiple post. I will take your recommendations into account for the future posts.

And thanks Stnkynts and Amphinomos for your fast answers, ActiveSheet.Visible feature worked! Ha! happy girl.

Cheers.

Yes, that is what Stnkynts suggested and what I did, otherwise it was giving me a compile error.

Thanks, have a good day.