or even Mid

for each cell in Range(Cells(1,lCol),Cells(Rows.Count,lCol).End(xlu p))
cell.Value = Mid(cell.Value,1,Len(cell.Value)-1)
Next

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Tom Ogilvy" wrote in message
...
You wouldn't use Right. You would use left

lCol = 2
for each cell in Range(Cells(1,lCol),Cells(rows.count,lCol).End(xlu p))
cell.Value = Left(Cell.Value,len(Cell.Value)-1)
Next

--
Regards,
Tom Ogilvy


"Franck" wrote in message
...
how to use the right function with vba to remove the last caracter of
the
data of my colums

thanks