Hello Sören

Try this:

Sub CountRows()
Dim TargetSh As Worksheet
Dim RowArray()

Set TargetSh = Worksheets("Sheet3")

LastCol = Range("A1").End(xlToRight).Column
ReDim RowArray(3 To LastCol)
For col = 3 To LastCol
RowArray(col) = TargetSh.Cells(Rows.Count, col).End(xlUp).Row
Next
End Sub

Regards,
Per

"Sören_Marodören" skrev i
meddelelsen ...
Hi,

I use the following line to count rows in a column A
Rows = Range("A" & Rows.Count).End(xlUp).Row
(I dont't know if this is the best way, but it works.)

Now I want to have a for loop that goes from column C to the last column
and count the number of rows in every column.

For Col = 3 to Last_Col
Rows = ....
Cells (1, Col) = Rows
Next

How shall the Row = ... be written to count the number of rows in column
Col?
How can it be written to count columns in another worksheet?


Best regards,
/Sören Nilsson
Sweden