Hi,
It must be a piece of cake but I can't figure out how to do this:
Current Code:
Range(("A2"), Range("B65536").End(xlUp)).Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart
Current Problem:
I have numbers in a cell with leading zero's and spaces at the end. I need to remove the blanks at the end but keep the zeros in the front. When I remove the spaces, zero's go away. Formating to text doesn't work as zeros still disappear.
My solution:
I need the code to find the first value of a cell and if its 0, replace with ' and 0...
Please help...
Thanks...
It must be a piece of cake but I can't figure out how to do this:
Current Code:
Range(("A2"), Range("B65536").End(xlUp)).Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart
Current Problem:
I have numbers in a cell with leading zero's and spaces at the end. I need to remove the blanks at the end but keep the zeros in the front. When I remove the spaces, zero's go away. Formating to text doesn't work as zeros still disappear.
My solution:
I need the code to find the first value of a cell and if its 0, replace with ' and 0...
Please help...

Thanks...