Visio Guy

I am needing to loop through each page sequentially, using a "For Each Page" loop, but need to exclude one (as it is irrelevant". Is there any way of doing this?

Thanks (as always) in advance!

I think this is pretty much straightforward... What have you tried so far (is there some issue)?

If vsoPage.Name = "xxx" then
...
else
...


{Ed} modified to suit your code posted just now

I'm sure it is pretty straight forward... The issue is that I don't know how to exclude a Page, as the loop will call each Page sequentially. They are not called directly by their name.

    For Each vsoPage In ThisDocument.Pages
        Application.ActiveWindow.Page = vsoPage

        For Each vsoShape In vsoPage.Shapes
            vsoUserName = vsoShape.CellsU("prop." & strFieldtoUpdate).ResultStr(visNone)
           
            intPropRow2 = vsoShape.AddRow(visSectionProp, visRowLast, visTagDefault)
            vsoShape.CellsSRC(visSectionProp, intPropRow2, visCustPropsValue).FormulaU = """" & vsoSuperUPN & """"
            Application.EndUndoScope UndoScopeID1, True
                   
        Next
    Next


I'm new to Visio and very rusty with VBA. This is a huge learning curve (again)!!

Thanks Paul (again!).

Pretty obvious really... Just one of those situations where the trees are obscuring the wood!