comparing the column headers, then deleting the entire column iif duplicates occur

hey there, I have been working on this for a few days now..but cant seem to make much headway. I have a spreadsheet with upto 32 columns. Among these 32 there maybe two or more duplicates. My task is to write a macro that will check through all the headers in each column, find the duplicates and delete them. A dummy sheet has been attached below to give better insight to my predicament. Plizz Help......

NB in this case column headers C7 have been repeated.