Code Not Working with Click Box
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
|