I understand this may be a memory intensive code loop, but it worked for me with your sample file
Code:Sub ClearNonLenCells() Dim C As Range For Each C In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants) If Len(C) = 0 Then C.ClearContents End If Next C End Sub




Reply With Quote
Bookmarks