Trim....Anzahl der Leerzeilen ermitteln

Sub LeerzeichenEntfernen()
Dim lngLetzte As Long
Dim lngZeile As Long
Dim lngSpalte As Variant
lngLetzte = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For Each lngSpalte In Array(1, 3, 4, 5, 8)
For lngZeile = 1 To lngLetzte
If Cells(lngZeile, lngSpalte)  "" Then
 Cells(lngZeile, lngSpalte).Value = Trim(Cells(lngZeile, lngSpalte))  
End If
Next lngZeile
''''Msgbox .....es wurden Anzahl an Leerzeichen aus der Spalte entfernt
Next lngSpalte
''''Msgbox .....es wurden Anzahl an Leerzeichen aus allen 5 Spalten entfernt
End Sub