First, sorry about the double post, but realized I posted my question to the
wrong forum.


Can anyone tell me why this code not only pastes the Formulas (which I want)
but also the values in the cells?


Sub test()

Dim cellActive As Range
Set cellActive = ActiveCell


Dim rgNewRow As Range
ActiveCell.EntireRow.Insert Shift:=xlDown
Set rgNewRow = Rows(cellActive.Row - 1)


cellActive.EntireRow.Copy

rgNewRow.PasteSpecial (xlPasteFormulas)


End Sub

It is correct, the option Formulas takes the 'formula and values' only, in
other words formatting etc, is ignored.

--

Regards,
Nigel




"Patrick C. Simonds" wrote in message
...
First, sorry about the double post, but realized I posted my question to
the wrong forum.


Can anyone tell me why this code not only pastes the Formulas (which I
want)
but also the values in the cells?


Sub test()

Dim cellActive As Range
Set cellActive = ActiveCell


Dim rgNewRow As Range
ActiveCell.EntireRow.Insert Shift:=xlDown
Set rgNewRow = Rows(cellActive.Row - 1)


cellActive.EntireRow.Copy

rgNewRow.PasteSpecial (xlPasteFormulas)


End Sub