View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Mr. Matt Mr. Matt is offline
external usenet poster
 
Posts: 20
Default 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