Hide only rows that are not bold?

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

 

[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

 

[kczmatthews]

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

Thank you!