I have a coomand button that should select a sheet and change the value in a
cell.
The code I have used is as follows, but it generates an error.

Private Sub CommandButton2_Click()
Sheets("Customer Profile").Select
Range("newused") = 1
End Sub

Please advise weere I am going wrong.

Thanks in advance of a favourable reply.
John