Change: Range("A2:A500") and Range("C2")
To: Range("A1:A500") and Range("C1")

But first clear Range(C1). After sorting you can change its content
to "Unique Names" if desired.

Thanks!!!! That worked perfectly! =)

Tip was to make sure C1 was clear, too!

...can't believe Microsoft is still leaving out details like this
in their documentation.....

Thanks to everyone for their replies!
Back to coding.... :]