Sheet Property Example

This example determines the name of the worksheet that contains the first PublishObject object that is saved as static HTML in the Web page. The example then sets the Boolean variable blnSheetFound to True. If no items in the document have been saved as static HTML, blnSheetFound is False.

blnSheetFound = False
For Each objPO In Workbooks(1).PublishObjects
    If objPO.HtmlType = xlHTMLStatic Then
        strFirstPO = objPO.Sheet
        blnSheetFound = True
        Exit For
    End If
Next objPO