Easier Way to do it?

[Guest]

Is there an easier or more logical way to write this code?

Sheets("Form Data").Range("C3").Copy
Sheets("New Deal Data").Range("AA5").PasteSpecial
Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

 

[Bob Phillips]

Sheets("Form Data").Range("C3").Copy _
Sheets("New Deal Data").Range("AA5")

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

 

[Yngve]

Hi Kurt Barr

If you are going to keep Paste:=xlPasteFormulas

Sheets("Form Data").Range("C3").Copy
Sheets("New Deal Data").Range("AA5").PasteSpecial
Paste:=xlPasteFormulas

if it`s only value then
Sheets("New Deal Data").Range("AA5") = _
Sheets("Form Data").Range("C3").value

Regards Yngve

 

[Guest]

Thank you very much.