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

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


"Mr. Matt" wrote:

> 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

Did it work when assigned to a click box?

"JLGWhiz" wrote:

> 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
>
>
> "Mr. Matt" wrote:
>
> > 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