Yes, the original code deleted the cell itself shifting the cells below up one, the 'Activecell.Clearcontents' just clears the cell leaving it blank.

Hope this helps.

John.