Excel Vba Copy Active Sheet Name

Source: www.extendoffice.com