Thank you for the quick fix.

"Ken Johnson" wrote in message
ups.com...
Hi Alan,
It worked for me after I added "wks." before each of the three sort
keys:

Key1:=Range("B2") becomes Key1:= wks.Range("B2")
Key2:=Range("C2") becomes Key2:=wks.Range("C2")
Key3:=Range("A2") becomes Key3:=wks.Range("A2")

Ken Johnson