On 2002-03-29 21:46, Dave Hawley wrote:
Hi Matt
Here is a nice easy fast way
Dim rRange As Range
Set rRange = Range("A1", Range("A65536").End
(xlUp)) _
.SpecialCells(xlCellTypeVisible)
rRange.Areas(1).Cells(rRange.Areas(1).Rows.Count + 1, 1).Select
On 2002-03-29 22:21, Dave Hawley wrote:
RE: But what if there is only one cell in the first area of rRange ?
You tell me? Far as I can tell it will make no difference.