S
Sue
Hi
Can you help with my sort macro below,
If nothing in the range F6:F15 does not equal the value of F5 then clear the
contents of A6:F15
Sub Macro12()
Sheets("OB;In;Av").Select
Range("A5:F15").Select
Selection.Sort Key1:=Range("F5"), Order1:=xlDescending,
Key2:=Range("E5") _
, Order2:=xlDescending, Header:=xlNo, OrderCustom:=1,
MatchCase:=False End Sub
Can you help with my sort macro below,
If nothing in the range F6:F15 does not equal the value of F5 then clear the
contents of A6:F15
Sub Macro12()
Sheets("OB;In;Av").Select
Range("A5:F15").Select
Selection.Sort Key1:=Range("F5"), Order1:=xlDescending,
Key2:=Range("E5") _
, Order2:=xlDescending, Header:=xlNo, OrderCustom:=1,
MatchCase:=False End Sub