>>206
Set rgFilter = ws.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)