1: 2: 3: 4: 5: 6: 7:
UnderRemoveSpaces () Dunkel cel som spänner För varje cel i ActiveSheet.UsedRange cel = klippning (byt ut (cel. Text Chr (160), "")) Därefter Avsluta suben