Double click not working

Cannot figure out why code is not working.
Code is supposed to:
1. User double clicks a cell in table "ERL" column "Form ID:"
2. The cell value the user double clicked is copied to sheet "Emergent Response" Cell "D4"
3. Sheet "Emergent Response" Cell "D4" is selected.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

says the SHEET column, while

Please Login or Register  to view this content.

says the TABLE column. That is, 4<>1, so the condition is not met.
Try:

Please Login or Register  to view this content.

Artik

..::Edit:
Too late
::..

Thank you for the reply.
Question
With the line

Please Login or Register  to view this content.

Why instead of ??
wsER.Select
wsER.Range("D4").Select

Application.Goto wsER.Range("D4"), True selects the cell and scrolls the sheet so that it is in the upper left corner of the window.
If you use "your" Select, the cell will be selected, but the screen will not scroll to show that cell. As a test of both solutions, select the AZ100 cell in the "Emergent Response" sheet and run both versions in sequence. You will notice the differences.
If you want the A1 cell to be visible in the "Emergent Response" sheet after the macro, add two lines of code after Application.Goto or after wsER.Select

Please Login or Register  to view this content.

or

Please Login or Register  to view this content.

Artik