Try the below which will limit the code to be executed in ColA

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then _
Application.Run "CopyProcedure"
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Rhino V" wrote:

I have this coded on a worksheet:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True ' prevent double-click from causing Edit Mode in cell
Application.Run "CopyProcedure"
End Sub

It allows me to double-click a cell in column A, selects and copies all data
on that row up to column E, and pastes the data into another worksheet.

Unforutnately, if you double-click anywhere else, like a cell in columns B
or C, it does the same thing and selects the next 4 cells over in that row
and copies and pastes it too. How can I limit the code to only execute if
the cell that is double-clicked is in column A?