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