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

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

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