Trying to copy a cell range to a different worksheet based on the selection from a ListBox

Now I get Run-time error '-2147024809 (80070057)':

The item with the specific name wasn't found.

It highlights the If ws.Shapes(.... line of code