A fixed range or a variable one - if fixed

on error resume next
'error trap in case you haven't got 4 characters or more
for each cell in range("A1:A100") ' or whatever the range is
'cell is simply a variable in this context
cell.value=right(cell.value,len(cell.value)-4)
next