Select Method fails

[j_Southern]

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

[Norie]

John

You would need to select the 'ClickCharges' sheet for that code to work.

See if this works.

Application.Goto Sheets("ClickCharges").Range("A1"), Scroll:=True