I have close to 100,000 cells that needs blank spaces removed my current code I use takes a long time is there a faster way?
Here is my code that I use...
Dim Rng As Range
For Each Rng In Intersect(ActiveSheet.UsedRange.Cells, ActiveSheet.Range("O:Z"))
Rng.Value = Application.WorksheetFunction.Trim(Rng.Value)