Visio Macro To List Document Tabs

I wrote up quickly to throw a sequential list of all the tabs (pages) of a Microsoft Visio document into a Shape (e.g. table of contents).

1. Create your overview page
2. Drop a shape onto the canvas
3. Open the shape sheet and assign the sheet a name (mine is called "Tabs")
4. Open the VBA editor (ALT + F11)
5. Paste the code from below into your document's code window
6. Make sure the name of your shape matches the Shape reference in the code
7. Right-click the shape and assign a macro behavior to the new macro/method
8. Double-click the shape
9. You're welcome

Public Sub FillOverViewPage()
    Dim vsoChars As Visio.Characters
    Dim vsoPages As Visio.Pages
    Dim i As Integer
    
    Set vsoPages = Me.Pages
    Set vsoChars = Me.Pages(1).Shapes("Tabs").Characters
    
    ' clear whats in there now
    vsoChars.Text = ""
    
    ' loop pages and add page name to the chars
    For i = 1 To vsoPages.Count
        If vsoPages(i).Background = False Then
            vsoChars.Text = vsoChars.Text & i & " - " & vsoPages(i).Name & vbCrLf
        End If
    Next i
End Sub