Clear contents when cell only contains hard return

[THodge]

I have written a macro to collapse my comments into the first blank column in a row that are spread out over several columns on any given row, which was working fine, but now the linked report that is feeding this information into my report has cells that have no info but instead hard returns which appear blank but my macro is not reading these cells as blank. What can I add to my macro to get it to clear all cells that only have hard returns and no other info before running the remainder of the tasks I have set for it?
This is what I have tried but it is not working, is there some other code for hard return?
' Delete blanks
Dim c As Range
Dim rng As Range
Set rng = Range("U4:BX98")

For Each c In rng
If c.Value = "CHAR(10)" Then c.ClearContents
Next c

[Rick Rothstein]

Assuming there would only be a single "Line Feed" (not hard return) and no other characters (such as a space), then your line of code should be...

If c.Value = Chr(10) Then c.ClearContents

CHAR is an Excel function... its VBA equivalent is Chr. Side note... VBA has a predefined constant for Chr(10), it is vbLf, so you could write that line of code like this as well...

If c.Value = vbLf Then c.ClearContents

Now in your write up, you said "all cells that only have hard returns" which is plural. If the cell had two or more Line Feed characters in it, the above line of code would not clear the cell because it is only looking for a single Line Feed. If you need to check for one or more Line Feed feed characters (and again, with no other characters), this line of code would do that...

If Not c.Value Like "*[!" & vbLf & "]*" Then

[THodge]

Thank you for your response. I am pretty new to VBA so yes some of these not used as much predefined constants are not familiar to me. Yes, you are correct there are up to 5 Line Feed characters. How should the last code you provided be used when I put it in there it clear all contents not just the ones with only line feed characters?

[Rick Rothstein]

What I wrote would replace what you already have up to the "Then" keyword. Here is the complete line of code...

If Not c.Value Like "*[!" & vbLf & "]*" Then c.ClearContents

This line of code will only clear cells containing nothing but Line Feed characters (no matter how many that is)... it will not clear any other cells.

[THodge]

Thank you so much, you fixed my issue and so fast thank you!