About Us

Phil H[_2_]

Thanks for the help!

"Ryan H" wrote:

This will count all the visible rows in your selection. Hope this helps! If
so, let me know, click "YES" below.

Option Explicit

Sub CountHighlightedRows()

Dim rw As Range
Dim VisibleRows As Long

For Each rw In Selection.Rows
If rw.Hidden = False Then
VisibleRows = VisibleRows + 1
End If
Next rw

MsgBox "Rows Selected: " & VisibleRows, vbInformation

End Sub
--
Cheers,
Ryan

"Phil H" wrote:

Need to modify this maco to not count hidden rows. For example if seven rows
of ten rows in question are hidden, I need the macro to count only the three
visible on screen.

Also, if no rows were hidden, and all ten were selected (highlighted), the
macro should count ten.

In other words, it should count only what is selected/visible on screen.

Sub CountHighlightedRows()
MsgBox "Rows Selected: " & Selection.Rows.Count
End Sub

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
More than selected rows being highlighted	RLD	Excel Discussion (Misc queries)	2	March 17th 10 07:03 AM
Counting Highlighted Rows	keiji kounoike	Excel Programming	1	November 18th 09 04:01 PM
Counting Highlighted Rows	Phil H[_2_]	Excel Programming	1	November 17th 09 07:11 PM
I need currently selected Excel cell to be highlighted better	Peggy	Excel Discussion (Misc queries)	4	January 22nd 09 04:43 PM
make selected item highlighted in listview	RB Smissaert	Excel Programming	2	September 2nd 04 10:37 AM

Menu

About Us