How to remove entries in bold?

Sub CheckForBold()

Dim wks As Worksheet
Dim iRow As Integer

iRow = 1
Set wks = Application.ActiveSheet

Do Until wks.Cells(iRow, 4).Value = ""
If wks.Cells(iRow, 4).Font.Bold = True Then
wks.Rows(iRow).Delete
Else
iRow = iRow + 1
End If
Loop

End Sub

[url] http://www.excelforum.com/excel-programming/478043-delete-rows-with-bold-or-italic-text.html [/url]