Fjern mellemrum

Public Sub RemoveSpaces()
    Dim lRow As Long
    Dim lCol As Long
    For lRow = 1 To ActiveSheet.UsedRange.Rows
        For lCol = 1 To ActiveSheet.UsedRange.Columns
            ActiveSheet.Cells(lRow, lCol).Value = Trim(ActiveSheet.Cells(lRow, lCol).Value)
        Next lCol
    Next lRow
End Sub

mange tak for hjælpen

Smiler :-)

du kan også lave en ny kolonne med følgende formel:

hvis(højre(a1;1)=" ";venstre(a1;længde(a1)-1);a1)

tak hpo

god dag

eller formlen  =Trim(A1) som fjerne mellemrum både foran og bagved