Right click sheet tabview codeinsert thisdefine a name for your sort
range
=OFFSET(yourshtname!$A$7,0,0,COUNT(yourshtname!$A: $A),10)
you may prefer countA

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel
As Boolean)
[sortrange].Sort Key1:= _
Cells(1, ActiveCell.Column), Order1:=xlAscending, Orientation:=xlTopToBottom
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"hebgengirl" wrote in message
...
I have input all my recipes into excel and I want to be able to sort them
by
category, ie. according to type of food, rating, ease of preparation, etc.
The whenI tried to sort by clicking on the category title, only that
column
sorted and it messed up the data because the rows didn't match up. I'd
like
to be able to click on a column heading, rating for example, and have all
my
favorite recipes appear according to the rating. I am using Microsoft
Excel
2003.