Excel Macro VBA：双击以选中问题

Question

how can I make the double click works ONLY when column 1,2,3 and 4 have values? I don't know where I should insert the code.. it's something like if column 1,2,3 and 4 have values then doubleclick.enable = TRUE else doubleclick.enable= FALSE..

Kindly need advice. My code is as follows:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Select Case Target.Column
        Case 6, 13
            If Not Intersect(Target, Range("F2:F13, M2:M13")) Is Nothing Then Cancel = True

        Target.Font.Name = "Times New Roman"
        If Target = "" Then
            Target = ChrW(&H2713)
        Else
            MsgBox "You cannot modify the cell."
        End If

        End Select
End Sub

Answer 1

I am asking just to clarify the issue. You only want to call doubleclick procedure if any cell in column 1 to 4 have value Or you want to check if corresponding row has value?

for option 1, you may use

If Application.CountA(Range("A1:D" & Rows.Count)) > 0 Then
    'Your Code
End If

for second option

If Application.CountA(Range("A" & target.Row & ":D" & target.Row)) > 0 Then
    'Your Code
End If

I tested above codes but in case of any mistake, we can modify them