Classe Watches (Excel VBA)

Uma coleção de todos os objetos Watch em um aplicativo especificado. Para usar uma variável de classe Watches, ela primeiro precisa ser instanciada por exemplo

Dim wtcs as Watches
Set wtcs = Application.Watches

For Each

Aqui está um exemplo de processamento dos itens Watches em uma coleção.

Dim wtcWatche As Watch
For Each wtcWatche In Application.Watches
	
Next wtcWatche

Add

Adiciona um intervalo que é rastreado quando a planilha é recalculada.

Add (Source)

Source: A fonte do intervalo.

 With Application 
 .Range("A1").Formula = 1 
 .Range("A2").Formula = 2 
 .Range("A3").Formula = "=Sum(A1:A2)" 
 .Range("A3").Select 
 .Watches.Add Source:=ActiveCell 
 End With

Count

Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = Application.Watches.Count

Delete

Exclui o objeto.

Application.Watches.Delete

Item

Retorna um único objeto de uma coleção.

Item (Index)

Index: O nome ou número de índice do objeto.

Dim wtcItem As Watch
Set wtcItem = Application.Watches(Index:=1)