1: 2: 3: 4: 5: 6: 7:
Sub RemoveSpaces () Schemerige cel als Waaier Voor Elke cel in ActiveSheet.UsedRange cel = Versiering (vervang (cel. Tekst, Chr (160), "")) Daarna Sub van het eind