Code to NOT include row 1 and 2

[Annette]

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

 

[Tom Ogilvy]

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

 

[Don Guillett]

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

 

[Don Guillett]

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