Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
Module1.Tamacro
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
.Font.ColorIndex = 2
.Interior.ColorIndex = 3
.Interior.Pattern = xlSolid
End With
Cancel = True
End Sub