I am trying to write a code that will remove a blank character in the from
the left side of cells in a particular range. After several permutations and
trials, I only get the first cell's value pasted into all the cells in the
rage.

Here is the lastest code I have tried:

Sub SpaceRemover()

Dim mystring, trimstring
Dim i As Range
Dim MyRange As Range
Set MyRange = Range("F56:F132")

For Each i In MyRange

mystring = ActiveCell
trimstring = Trim(mystring)
MyRange = trimstring

Next i

End Sub


I have also tried LTrim with the same results, . . .

Any help would be greatly appreciated,

Will