i have this code:

Sub CountProducts()

Dim scol As String

LastRow = ActiveSheet.UsedRange.Rows.Count
Range("A" & LastRow + 3).Select
scol = Chr$(ActiveCell.column + 64)
ActiveCell.Formula = "=counta(" & scol & "2:" & scol & _ ActiveCell.Row
- 1 & ")"

End Sub

and what i need is to either loop once from range A : S or just for
each range do the code, then next until range is S...

can anyone show me how please?


---
Message posted from http://www.ExcelForum.com/