how to make sheet names based off custom property

Hello, I am having trouble adding the Description CustomProperty to the sheet name using VBA. Does anyone have a solution? 

THanks

SolidworksApi/macros