justmelbell
New Member
- Joined
- Mar 3, 2017
- Messages
- 1
The below listed macro auto sort (sorting each of my rows by reverse alphabetical order) was working just fine. Then I put in some conditional formatting to highlight upcoming, current, and past dates. Not my auto sort is not working. Is there a way to make them both work or is one interfering with the other?
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A:AL")) Is Nothing Then
Range("A3").Sort Key1:=Range("A3"), _
Order1:=xlDescending, Header:=x2Yes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A:AL")) Is Nothing Then
Range("A3").Sort Key1:=Range("A3"), _
Order1:=xlDescending, Header:=x2Yes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub