Runtime Error 13

[DanzaNZ]

Hi all

I am getting Run-time Error 13 from the following code:

-----------------------------

Dim c As Range
 Application.ScreenUpdating = False
For Each c In Range("A:A")
 If c.Value = "This is an estimate only and applies for the termination date displayed." Then
 c.Offset(1, 0).EntireRow.Insert
 End If
Next c

-----------------------------

Can anyone help with this?
This code is designed to insert a blank row after C.value (Specified Text).
It works for the first few 100 rows, but then shows the Run-time error.

Thanks in advance!

[TMS]

First guess, you probably shouldn't be trying to insert rows into an entire column. Second guess, when you want to insert or delete rows, you should start from the bottom and work up. That means you can't use For Each cell. You need to use a loop counter and decrement it from the maximum number of rows of actual data down to 1 or 2.


Regards, TMS

[xladept]

Hi Piggles,

Change your insert code to:

Rows(c.Row + 1).Insert

and

If c="" Then Exit Sub

[DanzaNZ]

Thanks for the xladept

Maybe I am doing it wrong.....

--------------------------

Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("A:A")
If c.Value = "This is an estimate only and applies for the termination date displayed." Then
Rows(c.Row + 1).Insert
If c = "" Then Exit Sub
End If
Next c

--------------------------

Same Error with this one.
Would I be on the right track to go...

     If not c.Value = "This is an estimate only and applies for the termination date displayed." Then Exit Sub

[martindwilson]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

[xladept]

Hi Piggles,

I guess I can respond since you've got the code tags:

Sub AddRows()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("A:A")
If c.Value = "This is an estimate only and applies for the termination date displayed." Then
Rows(c.Row + 1).Insert
End If
Next c
End Sub

Did you have the sub...end sub? The Exit Sub line I wrote is inappropriate - I was going to edit my post and delete that part - Is there any other code in your routine? Because the code worked, error free, for me. If so maybe Trevor is right!????

[DanzaNZ]

Thank you very much xladept!!!!

The issue was a '?NAME' Error in the sheet.
I have removed this and it works very well.

Cheers
Dan

[xladept]

You're welcome