This function works as expected when I call it from a subroutine. But when I
call it as a worksheet function, it always returns rngCur no matter how many
rows are hidden.

Public Function VISIBLE(rngCur As Range) As Range
Application.Volatile
Set VISIBLE = rngCur.SpecialCells(xlCellTypeVisible)
End Function

SpecialCells isn't causing an action. Why isn't it working? Can anyone
suggest a workaround?

Thanks.

Charley