Delete data from cells that exceed 35 characters

[lofty_d]

Hi, I have a spreadsheet that already has data in it. I want a macro to remove any data from the spreadsheet where the cell exceeds 35 characters in length.

I thought Data -> Validation might help but as the data is already in the spreadsheet it does not.

Any help would be appreciated.

 

[taurean]

Logging out for today....

See following example for clearing up range B2:L1000.

Public Sub EraseOver35()
Dim RngBlank As Range
On Error Resume Next
With Sheets("Sheet1").Range("B2:K1000")
    Set RngBlank = .SpecialCells(xlCellTypeBlanks)
    .Value = Evaluate("IF(LEN(" & .Address(0, 0) & ")>35,LEFT(" & .Address(0, 0) & ",35)," & .Address(0, 0) & ")")
    If Not RngBlank Is Nothing Then RngBlank.Value = vbNullString
End With
End Sub