Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E18:E328")) Is Nothing Then
Target.Font.Name = "Marlett"
If Target = vbNullString Then
Target = "r"
Else
Target = vbNullString
If Not Intersect(Target, Range("E46:E48")) Is Nothing Then
If Application.CountA(Range("E46:E48")) = 0 Then
Range("F46") = "True"
Else
Range("F46") = "False"
End If
End If
End If
Cancel = True
End If
End Sub
|