use o "for each"
sintaxe: For Each element In group
onde element= variável para percorrer o group, que é a sua coleção dos objetos
exemplo:
dim x,colecao as range
colecao= Range("A1:A20")
for each x in colecao
x.Interior.Color= vbYellow
next
'colore o fundo de todas as células de A1:A20 de amarelo
"Nisto se manifestou o amor de Deus em nós: em haver Deus enviado o seu Filho unigênito ao mundo, para vivermos por meio dEle" 1 Jo 4-9
Postado : 09/10/2013 10:51 am