Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Range("D2:R11"), Target) Is Nothing Then
If Target.Value <> "" Then
Target.Value = ""
Target.Interior.Color = xlNone
Else
With Range("T2")
Target.Value = UCase(Left(.Value, 11))
Target.Interior.Color = .Interior.Color
End With
End If
Cancel = True
End If
End Sub