Unique items in combobox on userform

Thanks a lot for this great solution.
It works like charm in your attachment .. When I copied the lines of code and use them in my attachment
I got an error "Permession denied" run time error 70

UserForm1.Show