delete all the cell that contains more than 25 characters

[elaine216]

Does any one know how to do this???
Cheers,
elaine.

 

[Gary''s Student]

Enter and run this small macro:


Sub long_clearer()
Dim r As Range
For Each r In ActiveSheet.UsedRange
If Len(r.Value) > 25 Then
r.Clear
End If
Next
End Sub

 

[elaine216]

Thank you very much!

Enter and run this small macro:


Sub long_clearer()
Dim r As Range
For Each r In ActiveSheet.UsedRange
If Len(r.Value) > 25 Then
r.Clear
End If
Next
End Sub