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.