Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [B39:E48]) Is Nothing Then
If Target.Count > 1 Then Exit Sub
temp = Target.Address
Application.EnableEvents = False
Cancel = True
Cells(Target.Row, 2).Resize(1, 4) = vbNullString
Range(temp) = "ü"
Application.EnableEvents = True
End If
End Sub