samen gevoegde cel

[avesoft]

heren

kan Target.ClearContents ook werken met samengevoegde cel ??
ik gebruik deze maar werkt niet

ik hoop dat jullie mij weer verder willen helpen

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 7 And Not IsEmpty(Target) Then
        If WorksheetFunction.CountIf(Columns(7), Target) > 1 Then
            MsgBox "Dit komt al eens voor."
            Application.DisplayAlerts = False
            Target.ClearContents
            Application.DisplayAlerts = False
            Target.Select
        End If
    End If
End Sub

gr arie

 

[WHER]

Target.MergeArea.ClearContents