Hi I got it

the mistake was in parenthesis

[VBA] .Cells(i, "A") = Left(Range("A" & i).Value, Len(.Cells(i, "a")) - 2)
[/VBA]