VBA code to delete Drawing Objects from a specific Column.

Hi - I am trying to write some VBA code that deletes all Drawing Objects from all cells but only the active column?

I have found code that deletes everything apart from those in the active column, but can't find the reverse.

Example would be where the active cell is cell D7 - So need the code that deletes all drawing objects from Column D, and need to code to be of use in any column in the worksheet based on the active cell.

Any ideas?

Regards

Hans