In Excel 2003, I have a spreadsheet with over 1500 rows that I would like to
insert a blank row everytime the category changes in one row.

for i =cells(rows.count,"a").end(xlup).row to 2 step -1
if cells(i,"a")=categorychange then rows(i).insert
next

--
Don Guillett
SalesAid Software

"castleds" wrote in message
...
In Excel 2003, I have a spreadsheet with over 1500 rows that I would like
to
insert a blank row everytime the category changes in one row.

Sub InsertRow_At_Change()
Dim i As Long
With Application
.Calculation = xlManual
.ScreenUpdating = False
End With
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(i - 1, 1) < Cells(i, 1) Then _
Cells(i, 1).Resize(1, 1).EntireRow.Insert
Next i
With Application
.Calculation = xlAutomatic
.ScreenUpdating = True
End With
End Sub


Gord Dibben MS Excel MVP

On Wed, 27 Sep 2006 06:35:01 -0700, castleds
wrote:

In Excel 2003, I have a spreadsheet with over 1500 rows that I would like to
insert a blank row everytime the category changes in one row.