Refresh TOC

Discussion created by memile044 on Mar 9, 2013
Latest reply on Mar 11, 2013 by ldonahue

I am trying to refesh all the tab in the TOC. I think that this code works. However I have no idea of knowing if it actually work.

Public Function contentsRefresh()

    Dim pmxdoc As IMxDocument
    Set pmxdoc = ThisDocument
    Dim pContentView As IContentsView
    Dim pCountView As Long
    pCountView = pmxdoc.ContentsViewCount

        For i = 0 To pCountView - 1
         Set pContentView = pmxdoc.contentsView(i)
         pContentView.Refresh (i)
        Next i
End Function

If somebody could help me debug this it would be greatly appreciated.