Put in a sub in a REGULAR module (as Dave said)

Application.ScreenUpdating = False
Sheets("data").Range("f7").Value = "FALSE"
Sheets("secret partner").EnableCalculation = True ' ??
Sheets("entry").Range("b15:b115,d15:d115,g15:h115" ).ClearContents
'Range("d15:d115").ClearContents 'combined above
'Range("g15:h115").ClearContents

'too many dots .. 2 instead of one
with 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 'not needed
Application.ScreenUpdating = True


--
Don Guillett
SalesAid Software

"pinmaster" wrote in message
...
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