modify cell (delete) contents using macro

I have a column which contains elements like T27-1,T27-2...I would like tomodify those cell contents to T27 i.e delete the hypen and the subsequentcharacters.Any idea how to accomplish this using a MACRO.