Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Range("A2").Sort Key1:=Range("A3"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
Book1.xlsm | |||||
---|---|---|---|---|---|
A | B | C | |||
1 | Name | Item 1 | Item 2 | ||
2 | Jane | 1 | a1 | ||
3 | Jane | 2 | b2 | ||
4 | Jane | 3 | a2 | ||
5 | Julie | 4 | b3 | ||
6 | Julie | 5 | a3 | ||
7 | Julie | 6 | b4 | ||
8 | Julie | 7 | a4 | ||
9 | Julie | 8 | b5 | ||
10 | Mary | 9 | a5 | ||
11 | Sarah | 10 | b6 | ||
12 | Sarah | 11 | a6 | ||
Sheet1 |
You're welcome, and thank you for the feedback.Thank you so much, it worked perfectly!