Thans Jim, unfortuantely, that duplicates the line. I want to insert a blank
line with all the formatting of the line above it. Carry down the
conditional formats and formuals.


"Jim Cone" wrote:


This is the complete version...
Rows(r + 1).Insert shift:=xlDown
Rows(r).Copy Rows(r + 1)
--
Jim Cone
Portland, Oregon USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)