Refresh TOC

Hi,

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.

Cordially,