Easier Way to do it?
 

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

Easier Way to do it?
 

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

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Kurt Barr" wrote in message
...
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

Easier Way to do it?
 

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

Easier Way to do it?
 

Thank you very much.

"Yngve" wrote:

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