[RESOLVED] Fastest way to clear cells based on cel length

[MartinLiss]

I have a huge amount of data (8000 rows x 100 columns). Most cells have a length of 3, many others are blank and some have lengths of 1 or 2. I need to clear cells if the cell length isn't 3. I know of course that I can do this

Dim cel As Range
For Each cel In MyRange
    If Len(cel) = 2 Or Len(cel) = 1 Then
        cel = ""
    End If
Next

but I'm looking for a faster way. Any ideas?