Sub test() Dim c As Range For Each c In ActiveSheet.UsedRange if c.wraptext=true then c = Mid(c, 1, Len(c) - 1) end if Next End Sub
Sub test() Dim c As Range, x As String For Each c In ActiveSheet.UsedRange c.WrapText = False x = WorksheetFunction.Substitute(c, Chr(10), "") c = x Next c End Sub