Right click Sheet 1 > View code > Right click This Workbook > Insert Module > enter in the details.
Not quite

Right click any sheet > View code > DoubleClick ThisWorkbook > Paste the above Algorithm > enter in the details, which will make it real code.