Tim,
Rows(r).Copy Rows(r + 1)
--
Jim Cone
Portland, Oregon USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)



"Tim Rush"
wrote in message
Since we still have a lot of systems using Office 2000, I'm forced to write
code for that. I have the following:
Rows(r).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Unfortuantely the CopyOrigin or more exact the xlFormatFromLeftOrAbove is
not recognized as valid within 2000, but works fine in my 2003. Can anyone
suggest another method of duplicating a line above the selected cell
(formulas only, not the data).
Tim