Double Click Ascending Order

[sirdon]

When I double click the tab sheet2!C1 to Sheet2!H1 I am able to get them from ascending order (highest to lowest). When I go back to double click sheet2!B1 the column goes in alphabetical order but none of the other columns change with it.

Please see the attached file. There is VB coding.

[YasserKhalil]

I think you mean to deal with Sheet1 not sheet("details")
Try this change

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("B1:H1")) Is Nothing Then Exit Sub
    Dim I&: I = Target.Column
    Cancel = True

    If I = 2 Then
        With Range("B2:H" & Cells(Rows.Count, 2).End(xlUp).Row)
            .Sort Key1:=.Cells(1, I - 1), Order1:=xlAscending
        End With
    Else
        With Range("B2:H" & Cells(Rows.Count, 2).End(xlUp).Row)
            .Sort Key1:=.Cells(1, I - 1), Order1:=xlDescending
        End With
    End If
End Sub

[sirdon]

Works a treat. Thank you very much. This forum never seems to amaze me with their generosity. It's always appreciated

[YasserKhalil]

You're welcome.
Thanks a lot for your kind words and for the feedback