Code Not Working with Click Box

[Guest]

Hello,
The code below works perfectly well until I assign it to a click button.

Working Code:
Sub TransposeValues()
Sheets("VAV List").Select
Range("A2:A3").Select
Selection.Copy
Sheets("Sheet1").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=True
End Sub

Once assigned to a click button, I get an error saying "Select Method of
Range Class Failed" with Range("C3").Select highlighted as the culprit.

Not Working Code:
Private Sub CommandButton1_Click()
Sheets("VAV List").Select
Range("A2:A3").Select
Selection.Copy
Sheets("Sheet1").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=True
End Sub

Please help
Thanks

 

[Guest]

This worked for me:

Sub TransposeValues()
Sheets("VAV List").Range("A2:A3").Copy
Sheets("Sheet1").Range("C3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub

 

[Guest]

Did it work when assigned to a click box?

This worked for me:

Sub TransposeValues()
Sheets("VAV List").Range("A2:A3").Copy
Sheets("Sheet1").Range("C3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub