Excel macro to delete non-bold rows

Sub delnonbold()
'


'
For ii = 1 To 211
ActiveSheet.Cells(ii, 2).Select
If Selection.Font.Bold = True Then

Else
Rows(CStr(ii) + ":" + CStr(ii)).Select
Selection.Delete Shift:=xlUp
ii = ii - 1
End If


Next ii

End Sub