Verwijderen celinhoud als een teken niet voorkomt

[PeterT11]

Hallo,

Graag wil ik in een werkblad alle cellen leegmaken die het teken ~ niet bevatten
zit er al een poos naar te turen maar krijg het niet voor elkaar

iemand tips?

gr Peter

 

[edmoor]

Plaats een voorbeeld document.

 

[Cobbe]

Deze zou dat voor u moeten doen:

Sub cobbe()
Dim cl As Range
For Each cl In Selection
 If InStr(1, cl, Chr(126)) = 0 Then
   cl = ""
 End If
Next
End Sub