Thread
:
Why does this code not work for me?
View Single Post
#
2
Posted to microsoft.public.excel.programming
Nigel[_2_]
external usenet poster
Posts: 735
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
Reply With Quote
Nigel[_2_]
View Public Profile
Find all posts by Nigel[_2_]