Thanks, thanks, thanks. This worked beautifully!
Debi
"Bernie Deitrick" wrote:
Debi,
I re-read your message, and if there is only one line with TOTAL EXPENSES,
then you can use the find technique:
Columns("A:A").Find(What:="TOTAL EXPENSES").EntireRow.Insert
HTH,
Bernie
MS Excel MVP
"Debi" wrote in message
...
When I use the following code in an Excel macro to insert a row, it does
not
work correctly. Instead of inserting just one row above the TOTAL
EXPENSES
row, rows will continue to be inserted until the worksheet runs out of
rows.
Could someone please help me.
For Each c In [A1:A150]
If c Like "TOTAL EXPENSES" Then
c.Activate
ActiveCell.EntireRow.Insert
End If
Next
I have to use the "TOTAL EXPENSES" instead of the row number because this
is
a report I import from another program and the row number that TOTAL
EXPENSES
appears in varies from report to report depending on how many expenses are
in
each report.
Thanks
|