I use this code to remove nonbolded items ... but now I realize it can not
and should not touch headings which happen to be in row 1 and 2. Can
someone tell me what should be written so it doesn't touch those two rows?

Sub RemoveNonBoldedRows()
Dim i As Long
With ActiveSheet
i = .Cells(Rows.Count, 1).End(xlUp).Row

Do Until i < 1
If .Cells(i, 1).Font.Bold = True Then
i = i - 2
Else
.Rows(i).Delete xlShiftUp
i = i - 1
End If
Loop
End With
Range("A1").Select

End Sub

Sub RemoveNonBoldedRows()
Dim i As Long
With ActiveSheet
i = .Cells(Rows.Count, 1).End(xlUp).Row

Do Until i < 3
If .Cells(i, 1).Font.Bold = True Then
i = i - 2
Else
.Rows(i).Delete xlShiftUp
i = i - 1
End If
Loop
End With
Range("A1").Select

--
Regards,
Tom Ogilvy

"Annette" wrote in message
...
I use this code to remove nonbolded items ... but now I realize it can not
and should not touch headings which happen to be in row 1 and 2. Can
someone tell me what should be written so it doesn't touch those two rows?

Sub RemoveNonBoldedRows()
Dim i As Long
With ActiveSheet
i = .Cells(Rows.Count, 1).End(xlUp).Row

Do Until i < 1
If .Cells(i, 1).Font.Bold = True Then
i = i - 2
Else
.Rows(i).Delete xlShiftUp
i = i - 1
End If
Loop
End With
Range("A1").Select

End Sub

try
for i =2 to .Cells(Rows.Count, 1).End(xlUp).Row
code
next

--
Don Guillett
SalesAid Software

"Annette" wrote in message
...
I use this code to remove nonbolded items ... but now I realize it can not
and should not touch headings which happen to be in row 1 and 2. Can
someone tell me what should be written so it doesn't touch those two rows?

Sub RemoveNonBoldedRows()
Dim i As Long
With ActiveSheet
i = .Cells(Rows.Count, 1).End(xlUp).Row

Do Until i < 1
If .Cells(i, 1).Font.Bold = True Then
i = i - 2
Else
.Rows(i).Delete xlShiftUp
i = i - 1
End If
Loop
End With
Range("A1").Select

End Sub

try this
Sub deletebolded()
For i = Cells(Rows.Count, 1).End(xlUp).row To 3 Step -1
If Cells(i, 1).Font.Bold Then Rows(i).Delete
Next
End Sub

--
Don Guillett
SalesAid Software

"Annette" wrote in message
...
I use this code to remove nonbolded items ... but now I realize it can not
and should not touch headings which happen to be in row 1 and 2. Can
someone tell me what should be written so it doesn't touch those two rows?

Sub RemoveNonBoldedRows()
Dim i As Long
With ActiveSheet
i = .Cells(Rows.Count, 1).End(xlUp).Row

Do Until i < 1
If .Cells(i, 1).Font.Bold = True Then
i = i - 2
Else
.Rows(i).Delete xlShiftUp
i = i - 1
End If
Loop
End With
Range("A1").Select

End Sub