how to know in which order it is sorted

Hi,

I have some headers in my sheet. When they click on the header it has to be sorted.

When it is sorted by ascending and next time when they click header I want it to be sorted by descending.

Right now I have implemented to sort Descending . Now how will I check in which order does it sorted?

If know the order in which it is sorted currently then I will sort it in the opposite way..

If Target.Cells.Column = Range("D.ReportDate").Column Then
            Range("D.TotalRange").Sort Key1:=Range("D.ReportDate"), Order1:=xlDescending
End If