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

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

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)

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)
>

You cannot "carry down" formulas and not expect them to return a result,
no matter what XL version you use.
The following keeps cell formatting / conditional formatting intact...
'--
Rows(r + 1).Insert shift:=xlDown
Rows(r).Copy Rows(r + 1)
Rows(r + 1).ClearContents
--
Jim Cone
Portland, Oregon USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)



"Tim Rush"
wrote in message
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.