Hide only rows that are not bold?
 

I'm using version 2003 and want to quickly hide all the rows that are not
bold, leaving me with just the bold rows (the ones that contain only the data
I want to see).

I don't see a way to do this using conditional formatting.
--
kczmatthews

Hide only rows that are not bold?
 

Try this

Sub copyit()
Dim myrange, MyRange1 As Range
Set myrange = ActiveSheet.UsedRange
For Each c In myrange
If c.EntireRow.Font.Bold = False Then
If MyRange1 Is Nothing Then
Set MyRange1 = c.EntireRow
Else
Set MyRange1 = Union(MyRange1, c.EntireRow)
End If
End If
Next
MyRange1.EntireRow.Hidden = True
End Sub

Mike

"kczmatthews" wrote:

I'm using version 2003 and want to quickly hide all the rows that are not
bold, leaving me with just the bold rows (the ones that contain only the data
I want to see).

I don't see a way to do this using conditional formatting.
--
kczmatthews

Hide only rows that are not bold?
 

I'm going to admit I'm not very advanced. Where do I enter this information?

Thank you!

--
kczmatthews


"Mike H" wrote:

Try this

Sub copyit()
Dim myrange, MyRange1 As Range
Set myrange = ActiveSheet.UsedRange
For Each c In myrange
If c.EntireRow.Font.Bold = False Then
If MyRange1 Is Nothing Then
Set MyRange1 = c.EntireRow
Else
Set MyRange1 = Union(MyRange1, c.EntireRow)
End If
End If
Next
MyRange1.EntireRow.Hidden = True
End Sub

Mike

"kczmatthews" wrote:

I'm using version 2003 and want to quickly hide all the rows that are not
bold, leaving me with just the bold rows (the ones that contain only the data
I want to see).

I don't see a way to do this using conditional formatting.
--
kczmatthews