I have a strange problem -- the macro is not selecting, copying or pasting to
the correct ranges. When I do a F8 step by step debug review, it seems as if
it actually skips the Range(...).Select code.

The new select and paste ranges that are not be selected properly were
edited from previously coded ranges -- the macro is still selecting the old
ranges but the ranges are not coded in this macro! how do I fix this?
thanks.

Steve

Sub Set_Price()
'
' Set_Buyback_Price Macro

Sheets("A4_Targets").Select
Range("f13:f28").Select
Selection.Copy
Sheets("A1_Scenario Input").Select
Range("cq331").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Sheets("A4_Targets").Select
Range("f36:f51").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("A1_Scenario Input").Select
Range("cr301").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Is this stored in a regular module (as opposed to a sheet module)?
And you can streamline the code by doing no selecting:
For example, change this:
Sheets("A4_Targets").Select
Range("f13:f28").Select
Selection.Copy
Sheets("A1_Scenario Input").Select
Range("cq331").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

to this:
Sheets("A4_Targets").Range("f13:f28").Copy
Sheets("A1_Scenario Input").Range("cq331").PasteSpecial
Paste:=xlPasteValues

Bob Umlas
Excel MVP

"SteveC" <(E-Mail Removed)> wrote in message
news:2F9D78E8-46C8-4E66-9EE2-(E-Mail Removed)...
>I have a strange problem -- the macro is not selecting, copying or pasting
>to
> the correct ranges. When I do a F8 step by step debug review, it seems as
> if
> it actually skips the Range(...).Select code.
>
> The new select and paste ranges that are not be selected properly were
> edited from previously coded ranges -- the macro is still selecting the
> old
> ranges but the ranges are not coded in this macro! how do I fix this?
> thanks.
>
> Steve
>
> Sub Set_Price()
> '
> ' Set_Buyback_Price Macro
>
> Sheets("A4_Targets").Select
> Range("f13:f28").Select
> Selection.Copy
> Sheets("A1_Scenario Input").Select
> Range("cq331").Select
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> SkipBlanks _
> :=False, Transpose:=False
>
> Sheets("A4_Targets").Select
> Range("f36:f51").Select
> Application.CutCopyMode = False
> Selection.Copy
> Sheets("A1_Scenario Input").Select
> Range("cr301").Select
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> SkipBlanks _
> :=False, Transpose:=False

Since this code was edited from an existing macro, I wonder if the original
macro still exists? If so, is it possible that the old macro is being called
instead of the edited one (i.e. old macro still assigned to a button or old
macro name being selected from the list)?

Just a thought.
--
n00b lookn for a handout


"SteveC" wrote:

> I have a strange problem -- the macro is not selecting, copying or pasting to
> the correct ranges. When I do a F8 step by step debug review, it seems as if
> it actually skips the Range(...).Select code.
>
> The new select and paste ranges that are not be selected properly were
> edited from previously coded ranges -- the macro is still selecting the old
> ranges but the ranges are not coded in this macro! how do I fix this?
> thanks.
>
> Steve
>
> Sub Set_Price()
> '
> ' Set_Buyback_Price Macro
>
> Sheets("A4_Targets").Select
> Range("f13:f28").Select
> Selection.Copy
> Sheets("A1_Scenario Input").Select
> Range("cq331").Select
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> SkipBlanks _
> :=False, Transpose:=False
>
> Sheets("A4_Targets").Select
> Range("f36:f51").Select
> Application.CutCopyMode = False
> Selection.Copy
> Sheets("A1_Scenario Input").Select
> Range("cr301").Select
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> SkipBlanks _
> :=False, Transpose:=False

Hi

Try the following:
Sheets("A1_Scenario Input").Activate
Sheets("A4_Target").Range("F13:F28").Copy
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
Skipblanks:=False, Transpose:=False
Sheets("A4_Target").Range("F36:F51").Copy
Range("d1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
Skipblanks:=False, Transpose:=False

It is not necessary to select or even activate a sheet to copy from it.

--
Hth

Kassie Kasselman
Change xxx to hotmail


"SteveC" wrote:

> I have a strange problem -- the macro is not selecting, copying or pasting to
> the correct ranges. When I do a F8 step by step debug review, it seems as if
> it actually skips the Range(...).Select code.
>
> The new select and paste ranges that are not be selected properly were
> edited from previously coded ranges -- the macro is still selecting the old
> ranges but the ranges are not coded in this macro! how do I fix this?
> thanks.
>
> Steve
>
> Sub Set_Price()
> '
> ' Set_Buyback_Price Macro
>
> Sheets("A4_Targets").Select
> Range("f13:f28").Select
> Selection.Copy
> Sheets("A1_Scenario Input").Select
> Range("cq331").Select
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> SkipBlanks _
> :=False, Transpose:=False
>
> Sheets("A4_Targets").Select
> Range("f36:f51").Select
> Application.CutCopyMode = False
> Selection.Copy
> Sheets("A1_Scenario Input").Select
> Range("cr301").Select
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> SkipBlanks _
> :=False, Transpose:=False