Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- dim lStartRow as long, lLastRow as long, wsData as worksheet, rngArea as range, rngRow as range
- set wsData = thisworkbook.worksheets("mysheet")
- lStartRow = 1
- lLastRow = wsData.Cells.Find(What:="*", _
- After:=wsData.Range("A1"), _
- LookAt:=xlPart, _
- LookIn:=xlFormulas, _
- SearchOrder:=xlByRows, _
- SearchDirection:=xlPrevious, _
- MatchCase:=False).Row
- for each rngArea in wsData.range(lStartRow & ":" & lLastRow).SpecialCells(xlCellTypeVisible).Areas
- for each rngRow in rngArea.rows
- msgbox "Row " & rngRow.row & " is visible"
- next rngRow
- next rngArea
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement