Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
insert rows in a worksheet that do not change adjoining rows | Excel Discussion (Misc queries) | |||
How do i insert blank rows between data that is thousands of rows | Excel Discussion (Misc queries) | |||
Insert rows: Formats & formulas extended to additonal rows | Excel Worksheet Functions | |||
How do I insert blank rows between rows in completed worksheet? | Excel Discussion (Misc queries) | |||
Copy Rows and insert these rows before a page break | Excel Programming |