Hi John,

Am Thu, 16 Nov 2017 13:20:01 -0800 (PST) schrieb :

It threw an error with this line of code:

.Range("A:A").Sort key1:=.Range("A1"), order1:=xlAscending,
Header:=xlNo

that must be in one line.
Try it this way:

..Range("A:A").Sort key1:=.Range("A1"), order1:=xlAscending, _
Header:=xlNo


Regards
Claus B.
--
Windows10
Office 2016