删除包含特定单词的所有工作表中的所有列

I tried to modify the the below macro (taken elsewhere on internet) so that it applies to all the sheets within the Excel file. However it didn't work as expected. How do I make it work.I tried to modify the the below macro (taken el