Copy VBA function down worksheet

Hello,
I am trying to copy a function down a worksheet and can get all other formatting to copy but cannot get the double-click to hide rows to continue down. This is what I have so far:
#

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address(0, 0) = "B3" Then
        Cancel = True
        Rows("4:12").Hidden = Not Rows("4:12").Hidden
    Else
        Cancel = True
        Select Case Target.Interior.ColorIndex
            Case xlNone, 4: Target.Interior.ColorIndex = 3
            Case Else: Target.Interior.ColorIndex = 4
        End Select
    End If
End Sub

#

Thanks in advance for your help!