VBA Code 

Drop this in your personal.xlsb and it will run on any active workbook