Prova così.

codice:
Sub rimuoviAccapo()
    Dim foglio As Worksheet
    For Each foglio In Worksheets
        With foglio.Cells
            .Replace vbLf, "
"
        End With
    Next
End Sub
edit. Prova anche questo

=SOSTITUISCI(A1;CODICE.CARATT(10);"
")