Scripts Property
Returns the Scripts collection, which contains Script objects representing blocks of script or code in the specified document when it’s saved as a Web page.
expression.Scripts
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example adds a new VBScript block to the Scripts collection on the active worksheet.
Set objScrs = ActiveSheet.Scripts
Set objNewScr = objScrs.Add
objNewScr.Language = msoScriptLanguageVisualBasic