sortOrder = xlAscending
or
sortOrder = xlDescending

These parameter are really constant numbers store in Excel. You can assign
them to variables. I used blow in the sort SortOrder instead of xlAscending
or xlDescending



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
Range("DB_Cost_Report").Sort Key1:=Target.Offset(3, 0),
Order1:=sortOrder, Header:=xlfalse, _
OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ord = Not (ord)
Cancel = True
End Sub



"Ken" wrote:

Okay, so I am a spastic idiot; the first time I posted prematurely,
the second time as soon as I sent it I realized my mistake. Since
False corresponds to zero, not 2, which is what I need for a decending
sort, of course it fails. True works fine because it corresponds to 1
which gives me the ascending sort. I guess a couple lines of code to
handle my 1 to 2 to 1 toggle won't be too bad.

Thanks

Ken