Watch window printing

This writes the watch information to the immediate window.

Sub DumpWatches()

    Dim objWatch As Watch
    Dim lngIndex As Long
    
    For lngIndex = 0 To Application.Watches.Count - 1
        Set objWatch = Application.Watches(lngIndex)
        With objWatch.Source
            Debug.Print .Parent.Parent.Name, _
                        .Parent.Name, _
                        .Address(False, False), _
                        .Value, _
                        .Formula
        End With
    Next
    
End Sub