Hide only rows that are not bold?

K

kczmatthews

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.
 
M

Mike H

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
 
K

kczmatthews

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

Thank you!
 
Top