Automatically arrange in Ascending order?

[Andrew Hardscape]

hello all,

sorry to sponge again!

Can anyone advise on how I can make the list of names automatically go into alphabetical order?

What I been doing is I highlight the list then I click on the SORT ASCENDING button.

But is there a way to make it do it by itself?

Sales Closure Tracking.xls
	B	C	D	E
2	Sales Tracking
3	2006
4	SALES DOLLARS		JOB QUANTITIES
5	TOTAL QUOTED		TOTAL JOB QUOTES
6	$ 80,398.76		11
7
8	TOTAL SALES		TOTAL SOLD
9	$ 34,017.76		5
10
11	TOTAL NOT SOLD		TOTAL NOT SOLD
12	$ 46,381.00		6
13
14	CLOSURE RATE		CLOSURE RATE
15	42%		45%
16
17
18	Job Name	Value	Sale (Y/N)
19	Aulrich	$ 5,189.00	N
20	Barber, Bryan	$ 12,570.00	N
21	Baughman	$ 13,767.00	Y
22	Baughman (trees)	$ 2,938.00	N
23	Biggs	$ 3,329.00	Y
24	Blain	$ 12,771.00	N
25	Brooks	$ 4,864.00	N
26	Brown	$ 8,049.00	N
27	Brulia	$ 14,296.46	Y
28	Buckles	$ 1,930.30	Y
29	Buckles	$ 695.00	Y
30
31
32
33
34
35
36
37
38
39
Sheet1

 

[agihcam]

do want to do this via a macro?

 

[Andrew Hardscape]

I believe I do.

I'm by far no expert, but from what I do know, a Macro is the only way to accomplish this.

 

[agihcam]

right click the sheet in question, view code then paste this code on the large white screen to the right.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long
i = Range("a" & Rows.Count).End(xlUp).Row
If Target.Address <> "$A$18" Then Exit Sub
Range("A19:C" & i).Sort Key1:=Range("A19"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

close the vbe by hitting x button or hit Alt + Q to return to the sheet.
the range will sort automatically as you double click the Job Name