VBA Force Header Row on Sort

[Bench]

Hi, is there a way to force a Header row on a sort in VBA

xlGuess is the default, are there any other options?

I can't seem to get the header row to stay no matter how i select the cells before sorting.

Thanks

Intersect(Range("A:H"), ActiveSheet.UsedRange).Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("E2") _
        , Order2:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal

 

[Bench]

Solved, sorry. I had tried xlYes previously and it didn't work, here is the amended code if anyone requires it for reference. I also changed the Range to start at row 1.

Thanks

Intersect(Range("A:H"), ActiveSheet.UsedRange).Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Key2:=Range("E1") _
, Order2:=xlAscending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal

 

[VoG]

Try

Intersect(Range("A:H"), ActiveSheet.UsedRange).Offset(1).Sort Key1:=Range("B2"), _
        Order1:=xlAscending, Key2:=Range("E2") _
        , Order2:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal