Hi
I've assumed your Summary Sheet is sheet1 and that your data is a
continuous range starting at A1 on each sheet. Should get you started.

Sub countrows()
Dim i As Integer, SheetCount As Integer
Dim RowCounts() As Variant
Application.Screenupdating = false
SheetCount = ActiveWorkbook.Worksheets.Count - 1 'don't count
SummarySheet
ReDim RowCounts(1 To SheetCount, 1 To 2)
For i = 2 To SheetCount + 1 'assume sheet1 is SummarySheet
RowCounts(i - 1, 1) = Worksheets(i).Name
RowCounts(i - 1, 2) =
Worksheets(i).Range("A1").CurrentRegion.Rows.Count
Next i
Worksheets("SummarySheet").Range("A2").Resize(Shee tCount,2).Value =
RowCounts
End Sub

regards
Paul

On May 20, 4:13*pm, Les wrote:
Hi all, i have a variable number of sheets in a workbook, with variable rows
of data in each sheet. Each sheet has a specific name. I need to loop through
all sheets and get the number of rows per sheet and store the number of rows
per sheet/name on a summary sheet.
e.g.

George * * 20
Les * * * * *150
Johan * * * 60

Any help is as per normal much appreciated

--
Les