Loop Sheets

[CtrlAlt]

Range("A1", Range("A" & Rows.Count)).Copy Worksheets("sheet3").Range("A1")
For I = 1 To 2
Sheets(I).Select
For Row = 0 To x
Numwords = Application.CountIf(bereik,criteria)
Sheets("sheet3").Range("B1").Offset(Row, 0).Value = Numwords
a = a + 1
Next
Next I

De loop door de sheets werkt helaas niet, alle uitkomsten zijn gelijk aan 0.
Als ik zonder de loop voor sheets werk en bijvoorbeeld alleen sheet1 tel, kloppen de uitkomsten wel.
Iemand een idee waarom?

 

[snb]

Vermijd select en activate in VBA-code

For each sh in thisworkbook.sheets
  Sheets("sheet3").cells(rows.count,2).end(xlup).Offset(1) = worksheetfunction.countif(sh.columns(1),"criterium")
Next

 

[reneemettrie]

Range("A1", Range("A" & Rows.Count)).Copy Worksheets("sheet3").Range("A1")
For I = 1 To 2
Sheets(I).Select
For Row = 0 To x
Numwords = Application.CountIf(bereik,criteria)
Sheets("sheet3").Range("B1").Offset(Row, 0).Value = Numwords
a = a + 1
Next
Next I

De loop door de sheets werkt helaas niet, alle uitkomsten zijn gelijk aan 0.
Als ik zonder de loop voor sheets werk en bijvoorbeeld alleen sheet1 tel, kloppen de uitkomsten wel.
Iemand een idee waarom?

Denk dat het beter is de bedoeling van de code uit te leggen, en de volledige code te plaatsen.
Hoe zijn de (object) variabelen gedefinieerd? Welke waarde kregen bereik en criteria?
Application.CountIf(bereik,criteria) bestaat volgens mij niet, moet zijn Application.WorksheetFunction.CountIf(bereik,criteria)
Rows.count resulteert in het aantal rijen van een blad, niet van een bepaald gebied. Is dat de bedoeling??