I’m working on this piece of code that will use Col. “A” as a link t
extract X row (Sheet3) and copy the info to Sheet1. It works fine up t
the point of Copy after that it returns a “Run Time Error 9” / Subscrip
out of Range. Any ideas how to correct?

Any help is appreciated!
================================================== ==
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cance
As Boolean)
Cancel = True
Dim IntersectRange As Range
Set WatchRange = Range("A10:A5000")
Set IntersectRange = Intersect(Target, WatchRange)
On Error GoTo 0
Application.EnableEvents = False

With ActiveWorkbook.Worksheets("Sheet3")
If IntersectRange Is Nothing Then
MsgBox ("NO SELECTION MADE")
Else
Target = "B" & ActiveCell.Row & ":V" & ActiveCell.Row
End If
End With
Range(Target).Select
Selection.Copy
Sheets("Sheet1").Range ("AP12")
ActiveSheet.Paste
Application.CutCopyMode = False
Application.EnableEvents = True
End Su

--
Fabl

-----------------------------------------------------------------------
Fable's Profile: http://www.excelforum.com/member.php...nfo&userid=218
View this thread: http://www.excelforum.com/showthread.php?threadid=50147