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.

Please Login or Register  to view this content.

You can work with the Visible property.

Please Login or Register  to view this content.

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.