Select Method fails

I can't understand why this bit of code is failing
[CODE][/Private Sub CommandButton4_Click()

With Sheets("ClickCharges")
.Range("A1").Select
End With
Me.Hide
End SubCODE]

I get a "Select method of Range fails" message
I am sure I must have used this a thousand times before.
If I can't do it this way, what should I do?

John