I have the following macro:

ActiveSheet.Unprotect Password:="test"
Range("A10:T400").Select
Selection.Sort Key1:=Range("B10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
ActiveSheet.Protect Password:="test"

My problem is that I only want this macro to work on the worksheet titled
"Data Entry Sheet". If somebody accidentally runs it while they are working
on a different worksheet it messes up all the formulas on that worksheet. Any
and all help is greatly appreciated. Thanks in advance.

Hi Hawkfan757

Use this as first line in your macro
If ActiveSheet.Name = "Data Entry Sheet" Then Exit Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Hawkfan757" wrote in message ...
I have the following macro:

ActiveSheet.Unprotect Password:="test"
Range("A10:T400").Select
Selection.Sort Key1:=Range("B10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
ActiveSheet.Protect Password:="test"

My problem is that I only want this macro to work on the worksheet titled
"Data Entry Sheet". If somebody accidentally runs it while they are working
on a different worksheet it messes up all the formulas on that worksheet. Any
and all help is greatly appreciated. Thanks in advance.