I never felt a need to do this but this should do it.
Sub numbervisiblerows()
mc = 2'column number to check 2 is column B
For i = 1 To Cells(Rows.Count, mc).End(xlUp).Row
If Rows(i).Hidden = False Then Cells(i, mc -1) = j
j = j + 1
Next i
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)