Insert Rows
 

Sub bold()
Dim i As Long
With Worksheets("12062006")
For i = 127 To 2 Step -1
If Cells(i, "A").Font.bold Then
MsgBox "hello"
Rows(i + 1).Resize(5).Insert
End If
Next i
End With
End Sub


--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Alex" wrote in message
...
I am trying to insert 5 blank rows after a bold cell is found in a list.
here is the code I have so far.

thanks

Alex

Sub bold()
Dim rRange As String
For Each c In Worksheets("12062006").Range("A2:A127").Cells
If c.Font.bold = True Then MsgBox "hello"
Selection.EntireRow.Insert

Next

End Sub