delete last character

[Guest]

Hi

Can someone please help me with some VBA to loop through a range, deleteing the last character from every cell

Thanks in advance.

 

[Frank Kabel]

Hi Therese
try the following macro (processes the current selection

sub delete_last()
dim rng as range
dim cell as range
set rng = selection
for each cell in rng
if len(cell.value>1) then
cell.value = left(cell.value,len(cell.value)-1)
end if
next
end sub