Keiji - lol - the range contains some names i am familiar with, so i
hid a bunch of them in alphabetical order & then ran the macro
repeatedly, seeing if any of the hidden names showed up.
susan


On Nov 2, 12:13*am, keiji kounoike <"kounoike AT mbh.nifty.com"
wrote:
I wonder how did you check it returns a value with hidden rows?
a code like this still comes up with hidden rows

s = ws1.Range("a1", ws1.Range("A1").End(xlDown)) _
* * *.Cells.SpecialCells(xlCellTypeVisible).Count
MsgBox s

keiji



Susan wrote:
Dim x As Long

x = Int((ws1.Range("a1", ws1.Range("A1").End(xlDown)) _
* *.Cells.SpecialCells(xlCellTypeVisible).Count * Rnd) + 1)

this is *supposed* to return a random row out of the visible-only
cells. *but it still comes up with the hidden rows. *do i have the
SpecialCells designation in the wrong place?
many thanks in advance
:)
susan- Hide quoted text -

- Show quoted text -