Para usar o laço For Each no VBA Excel, siga os seguintes passos:
Crie um objeto de coleção que você deseja percorrer. Isso pode ser uma matriz, uma lista, um dicionário ou qualquer outro objeto de coleção.
Use a sintaxe For Each para percorrer cada elemento da coleção. Por exemplo:
``` Dim minhaLista As Variant minhaLista = Array("apple", "banana", "orange")
For Each fruta In minhaLista'Seu código aqui Next fruta ```
Dentro do loop, você pode acessar cada elemento da coleção usando a variável que você definiu no cabeçalho do loop (no exemplo acima, a variável é "fruta").
Faça o que você precisa fazer com cada elemento da coleção dentro do loop.
Quando o loop terminar, o controle será retornado para o próximo código que vem depois do loop.
Dica: Se você não sabe qual coleção usar, experimente a coleção Range para percorrer células em uma planilha.
Exemplo de código:
``` Sub ExemploForEach()
Dim frutas As Variant frutas = Array("maçã", "banana", "cereja")
For Each fruta In frutas MsgBox "Esta é a fruta: " & fruta Next fruta
End Sub ```
Este código irá exibir uma caixa de mensagem para cada elemento da matriz "frutas", contendo o texto "Esta é a fruta: ", seguido pelo nome da fruta.