Hi
The below code was kindly provided to me by somebody on the board many years ago and the layout of the relevant sheet has changed since then.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 7 Then
TopCell = Cells(12, 3).Address
BottomCell...