salve
prova a con questa macro:
Private Sub Worksheet_Change(ByVal Target As Range)
Set AREA = Range("d4:D33")
If Not Intersect(AREA, Target) Is Nothing Then
If Target.Value <> "SH" Then Exit Sub
For Each cl In AREA
If cl.Value = Target.Value And Target.Row <> cl.Row Then
cl.Value = ""
End If
Next
End If
Set AREA = Nothing
End Sub
da inserire nel modulo del foglio .
saluti
Giap