Extended Property Example

This example checks the Extended property to ensure that no additional attributes have been added to the first script in worksheet one in the active workbook.

If ActiveWorkbook.Worksheets(1).Scripts(1).Extended _
    <> "" Then
      MsgBox "This script contains extended attributes."
End If