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

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" <[email protected]> wrote in message
news:[email protected]...
> 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
>

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

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
>
>