More efficient code advice needed
Thanks Bob!!
"Bob Phillips" wrote:
Worksheets("Data for Graphs").Columns("D:H").Copy
Worksheets("Copy of Data for Graphs").Select
Range("J1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
_
:=False, Transpose:=False
Application.CutCopyMode = False
--
HTH
Bob Phillips
"Linking to specific cells in pivot table"
crosoft.com wrote in
message ...
Hi - I've been writing code in what I'm sure is an inefficient way -- can
someone just tell me what the recommended way would be to re-write the
following code? Thanks!
Sheets("Data for Graphs").Select
Columns("D:H").Select
Selection.Copy
Sheets("Copy of Data for Graphs").Select
Columns("J:N").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
_
:=False, Transpose:=False
|