Removing Carriage Returns In A Data Array - Need VBA Help

[milwphil]

Good afternoon!

I have this code which is used to Trim (or remove spaces from all the cells in a dataArray); however, I also want to remove any "Carriage Returns". Can anyone help me add this to my working code?

AS ALWAYS! IT'S GREATLY APPRECIATED!

dataArray = dataSheet.Range(dataSheet.Cells(1, 1), dataSheet.Cells(LastRow + 1, 34)).Value
For tmpRow = headerRow + 1 To LastRow
    For tmpCol = 2 To lastCol
        [B]dataArray(tmpRow, tmpCol) = Trim(dataArray(tmpRow, tmpCol))
[/B]    Next tmpCol
Next tmpRow
dataSheet.Range(dataSheet.Cells(1, 1), dataSheet.Cells(LastRow + 1, 34)).Value = dataArray
lookupArray = lookupSheet.Range("Rules").Value

 

[shg]

dataArray(tmpRow, tmpCol) = Replace(dataArray(tmpRow, tmpCol), vbCr, vbNullString) ' or maybe, more likely, vbLf
 
' or 

dataArray(tmpRow, tmpCol) = WorksheetFunction.Clean(dataArray(tmpRow, tmpCol))

BTW, the VBA Trim and worksheet TRIM function are different in their behavior.

 

[milwphil]

GENIUS! Thank you, thank you, thank you!