не можете да Set стойност към низ. това е грешно Set UserRange = ListBox1.Selected = True

person Development FlazHost    schedule 19.11.2020    source източник