Insert Row in Excel for conditional with macro

Question

Hello

I just want to know that how can I do the Follow Application in Excel 2007 with Macro.

At first find all of cells that included    "*"   then insert row for each of those.

Regards,

Answer 1

TediVQ,

Maybe you could adapt from this: I put some text strings in A1:A8, some of which included the * character. Running this code inserts a new line below those cells which contain a *

Sub insrt_below()

Dim c As Range

For Each c In Range("A1:A8")

    If InStr(1, c, "*", vbTextCompare) > 0 Then

        Rows(c.Offset(1, 0).Row & ":" & c.Offset(1, 0).Row).Insert shift:=xlDown

    End If

Next c

End Sub

Is that close to what you wanted?

___________

Regards, Tom

Answer 2

Hi

Thanks a lot,This is the same answer what i needed.

Regards,