Counting the number of Occupied Rows in workbook.

[Pankaj Sharma]

I was trying to count he number of occupied rows in the workbook.
Below is the code I am using. But I am getting the wrong results.

Private Sub CommandButton1_Click()

Dim count
Dim WkSht As Worksheet
Application.DisplayAlerts = False
For Each WkSht In ActiveWorkbook.Worksheets
count = ActiveSheet.UsedRange.Rows.count
MsgBox (count)
Next WkSht


Message box is showing the same value for count even if all the sheets have different number of rows occupied. Looks like control is not navigating to next sheet in loop.

Any help is welcomed.

 

[Peter_SSs]

You already have this question asked here.

Please do not post the same question multiple times. Questions of a duplicate nature will be locked or deleted, per #9 of the Forum Rules.

Any bumps, clarifications, or follow-ups should be posted to the linked thread.


In any case you question is in English so should not be posted in this forum which is for "Questions in Other Languages".