Excel VB

[Guest]

I have the following code (copied from a macro) into VB as follows:

Private Sub CommandButton1_Click()

Sheets("Sheet1").Select


Range("B517").Select
Selection.Copy
Sheets("Sheet3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("K22").Select


End Sub


When I run this from a button I get the following message - Runtime error 1004
Select method of Range class failed.

Can someone please help me with the proper syntax.

Thanks

Nigel

 

[Simon Murphy]

Have you got sheets called Sheet1 and Sheet3?
cheers
Simon

 

[Guest]

Hi Simon

Yes I do actually have those sheet names - however I have just solved the
problem - I did not use the Activate command and that is what has been
hanging my code up- it is now fixed. Thanks fro responding.

Private Sub CommandButton1_Click()