Drawing Sheet Macro

Does anyone know of a macro, or how to create one that would apply the sheet number to each of the components on that sheet.  Ex.  There are four components on sheet 4 and I need a customer property in each part that reads sheet4.

SolidworksApi macros