That solved the problem. Thank you for your help. I am good to go.

"Norman Jones" wrote:

Hi D,

Try removing the manual ListFillrange assignment
before running the code


---
Regards,
Norman



"Dkline" wrote in message
...
Thank you for your response. However I am running into a "Permission
Denied"
error. It appears I need to empty the ListFillRange before I can put in
the
new range

I've tried adding a .List = "" and a .List = " " to clear the range first.
I
get a runtime 381 "Invalid Range Array Index" error.

"Norman Jones" wrote:

Hi D,

Replace:

.List = Sheets("Foglio1").Range("A6:A20").Value

with

.List = Rng.Value


---
Regards,
Norman