Type Mismatch in my code, whats wrong?

Hi,

I have the following code to activate when a cell is change on a particular sheet but it is resulting in a Run Time Error 13 Type Mismatch and when i hit Debug is just highlights the

Please Login or Register  to view this content.

line

Please Login or Register  to view this content.

It actually does what i want and pastes the data in to the Store Selection Cell C3 but then goes no further and debugs

Any help much appreciated

Simon

Query Message.jpg

This is now coming up to do with my Query Parameters

Just one cell range which is a drop down list of users names, it is still returning the values correctly but gives me that error message so stops the code completing

got it sorted now, thanks for helping out

Here's my code:

Unfortunately i have had to settle for ensureing the workbook is saved with cell A1 of the Table Query selected otherwise the Selection.End.(XLDown) will not copy the correct range as i cannot select a certain cell as a starting point, rather annoying but oh well

HTML Code: