Sorry Guys. Here is the code.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim isect As Range
Set isect = Intersect(Target, Range("D:D"))
Dim a1 As Range
Dim targetoffset As String
Dim notes As String
Set a1 = Range("a1:a1")...