Hi
in most cases no need to select sheets / ranges. e.g. try:
Private Sub CommandButton31_Click()
dim wks as worksheet
dim rng as range
set wks = activeworkbook.workSheets("SOURCE 1")
set rng = wks.Range("H77")
msgbox rng.value
End Sub

--
Regards
Frank Kabel
Frankfurt, Germany

"Gee" schrieb im Newsbeitrag
...
I'm having trouble with a button I created. When clicked
it's supposed to go to sheet "SOURCE 1" and then to Cell
H77. I keep getting the message "Select Method of Range
Class has Failed"

Private Sub CommandButton31_Click()
Sheets("SOURCE 1").Select
Range("H77").Select
End Sub

Any ideas what I'm doing wrong?

Thank you for any help you can give me,
Gee