Sub Tri_Horizontal()
Sheets("Sites").Select
For i = 1 To 100
Rows(i).Select
Selection.Sort Key1:=Rows(i), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next i
End Sub