On Feb 20, 9:49*am, Slim Slender wrote:
When I run the following in VBA, it puts the value 350 in Sheet40,
Range A1.

Worksheets("Sheet40").Range("A1") = Sheets("Sheet1").UsedRange.Count

This is because there are 5 columns of figures and Column A, the
longest one, has 70 items.
The problem is that some of the columns are not as long as A, do not
have as many items, aren't
filled all the way to the bottom. However, when I click on the sheet
selector, the little square in the
top left corner of the sheet, "Count: 126" appears in the status bar
at the bottom of the sheet.
This is the correct number of elements on the sheet. How can I capture
this number with VBA.
Also, I want to step through a variable number of sheets and get this
count for each one and list
those counts on a separate sheet.


Sub dural()
Dim n As Long
n = Application.WorksheetFunction.CountA(Sheets("Sheet 1").UsedRange)
Worksheets("Sheet40").Range("A1") = n
End Sub