Try not to do any selections:

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Sheets("data").Range("f7").Value = "FALSE"
'Sheets("secret partner").EnableCalculation = True
with Sheets("entry")
.Range("b15:b115").ClearContents
.Range("d15:d115").ClearContents
.Range("g15:h115").ClearContents
end with
With ActiveWorkbook.Sheets("1st div")
.Range("B5:B54") _
.Sort Key1:=.Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
Application.ScreenUpdating = True

End Sub

pinmaster wrote:

HI Don, tried your code but now I get an "compile error syntax error". Maybe
I should have mentioned that the code I gave works fine on its own, its when
I put the code inside another macro that I get the error. Here's the macro
with the bit of code you gave me.

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Sheets("data").Range("f7").Value = "FALSE"
Sheets("secret partner").EnableCalculation = True
Sheets("entry").Select
Range("b15:b115").ClearContents
Range("d15:d115").ClearContents
Range("g15:h115").ClearContents
With ActiveWorkbook.Sheets("1st div")..Range("B5:B54") _
..Sort Key1:=.Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
Sheets("Entry").Select
Application.ScreenUpdating = True

End Sub

I've beent getting the "select method of range class failed" error a lot
lately, even on something as simple as this.
Private Sub CommandButton3_Click()
Sheets("data").Select
Range("a1:b10").Select
End Sub

Is it me or is there something wrong with excel?

Hope you can help
Jean-Guy

"Don Guillett" wrote:

Your code worked as written. Perhaps you have a problem with the sheet name.
Spaces???
You may like this if you don't need to select. Notice the dot ( . ) before
range in BOTH cases.

Sub sortit()
With ActiveWorkbook.Sheets("1st div")
..Range("B5:B54") _
..Sort Key1:=.Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
End Sub

--
Don Guillett
SalesAid Software

"pinmaster" wrote in message
...
Hi, does anyone know why this would cause an error?

ActiveWorkbook.Sheets("1st div").Select
Range("B5:B54").Select
Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess,
_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

error - Select method of range class failed

TIA
Jean-Guy




--

Dave Peterson