Why does this code not work for me?
 

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

Why does this code not work for me?
 

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