What do you get?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Rui" wrote in message
...
hi everyone

i´m trying to get this commandbutton (that is in sheets(1)) to work:

Private Sub botao_m1_Click()

Application.ScreenUpdating = False

Sheets(4).Select
Range("K15").Select
Selection.Copy
Range("M15").Select
Selection.PasteSpecial Paste:=xlPasteValues
etc..