boolean to control sort order

[Ken]

I am trying to use a boolean variable to control a sort Order. This
is a sort that is triggered by the double click event and I want to
toggle between Ascending and Decending in successive sorts. I can get
it to work when my variable a string that is toggled between
xlAscending and xlDecending, I can get it to work when the variable is
and integer toggled between 1 and 2, and I can get it to work when my
variable is Boolean equal to True. False causes and error. I would
like to simplify my already pretty simple code to

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Application.And(ActiveCell.row < 5, ActiveCell.row > 1,
ActiveCell.Column > 1, ActiveCell.Column < 180) Then
ord = True

' If Worksheets("Setup").Range("Sort_Order").Value =
"xlAscending" Then
' Ord = True
' Worksheets("Setup").Range("Sort_Order").Value = False
' Else
' Ord = False
' Worksheets("Setup").Range("Sort_Order").Value =
"xlAscending"
' End If

Range("DB_Cost_Report").Sort Key1:=Target.Offset(3, 0),
Order1:=2, Header:=xlfalse, _
OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

ord = Not (ord)

Cancel = True

On Error GoTo 0

End If

If Application.And(ActiveCell.Column =
Range("Item_Number").Column, ActiveCell.row > 4) Then
Sequences.Show
Cancel = True
End If

If ActiveCell.Column = Range("Item_Number").Column + 1 Then
On Error Resume Next
Call Hide_Columns(ActiveCell.Text)
Cancel = True
On Error GoTo 0
End If
End Sub