Macro only Works Certain Tab is Active

[RCarlson]

I have a very simple question that for some reason I am struggling with. The below macro works fine if I am on the "Output Variance" worksheet. But if I try running it when I am on any other tab it doesn't work. What am I doing wrong?

Sheets("Output Variance").Range("A1", Range("A1").End(xlDown).End(xlToRight)).Copy
Sheets("VertOutputVar").Select
Sheets("VertOutputVar").Range("A1").PasteSpecial xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
End Sub

This macro is to copy data from one worksheet and transpose and paste values only on another worksheet.

Thanks!

 

[Jaafar Tribak]

I have a very simple question that for some reason I am struggling with. The below macro works fine if I am on the "Output Variance" worksheet. But if I try running it when I am on any other tab it doesn't work. What am I doing wrong?

Sheets("Output Variance").Range("A1", Range("A1").End(xlDown).End(xlToRight)).Copy
Sheets("VertOutputVar").Select
Sheets("VertOutputVar").Range("A1").PasteSpecial xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
End Sub

This macro is to copy data from one worksheet and transpose and paste values only on another worksheet.

Thanks!

You are not fully qualifying the copy range ... Try this :

With Sheets("Output Variance")
    .Range("A1", .Range("A1").End(xlDown).End(xlToRight)).Copy
End With

Sheets("VertOutputVar").Range("A1").PasteSpecial xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

 

[RCarlson]

Thank you!!!!

 

[Jaafar Tribak]

Thank you!!!!

You are welcome.