Insert Row Macro Help

  • Thread starter Thread starter ksp
  • Start date Start date
K

ksp

Hi All

I am trying to create a macro that will automatically insert one row
before any cell in a specified range of Column A that contains any text
(the text is free form user defined so I am unable to search just for a
specific text string, and there may be blank cells in this column, with
related data in other columns).

I found the following code which is inserting rows

Sub InsertRows()
With Range("A11:A2498")
Set C = .Find(What:="*", LookIn:=xlValues)
If Not C Is Nothing Then
firstAddress = C.Address
Do
C.Offset(1, 0).EntireRow.Insert
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <>
firstAddress
End If
End With
End Sub

However, it seems to go on forever in a never ending loop, and I am not
sure what I need to change / add to fix the problem

Any help would be appreciated

Thanks
Karen
 
It works fine for me with the data that I created. Can you cut it back to a
smaller range with a smaller set of data until it stops failing, thereby
finding a manageable set of data that fails, then post that data.

--

HTH

RP
(remove nothere from the email address if mailing direct)
 
Hi

Interestingly enough if I copy the data and the macro as is, into a new
worksheet, it works fine, even with the large data range that I am using
- so apparently the macro is not to blame but something else.

Thanks for checking my code, at least I know that it's not the problem.
I'll just have to keep trying to get to the bottom of it

Thanks
KP
 
Back
Top