Hi,

Do it like this

With Sheets("Data List")
..Columns("A:A").Sort Key1:=.Range("A1"), Order1:=xlAscending
End With


Mike

" wrote:

On Oct 6, 7:10 pm, Mike H wrote:
Hi,

Make this the last line of the routine that updates the list

Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending

Mike

" wrote:
Hi,

I am using a VBA to automatically update a source list I am using for
my data validation list as explained on the Ozgrid.com website:

http://www.ozgrid.com/Excel/excel-va...ist-update.htm

This allows the list to be automatically updated from the cells that
contain the data validation list - rather then having to go to the
source list itself. However, once the list is updated I would like it
to be automatically sorted by alphabetical order to save me time. Does
anyone know a VBA code for sorting in alphabetical order? My list is
on a seperate worksheet in column A.

Thanks for your help!

Hi Mike,

Thanks for your help!
The code worked, but I forgot to mention earlier my source list is on
another sheet - which I have named Data List.
Is there a way of making it sort the list on this sheet? As at the
moment it sorted the column A on the sheet where I have my data
validation.

Thanks!