Edcronos, qto tempo !

Seguinte, quando se tem um loop para mudar qquer propriedade de uma célula, isso vai ficar lento... uma dica q pode acelerar é o application.screenupdate = false no começo do código, e o application.screenupdate = true no final do código.... mas não vai melhorar muito, ...

Mas ao ler seu código vi que vc usou matrizes o que é bom, mas o gargalo está na mudança das bordas.... se conseguir um jeito de aplicar todas as bordas de uma vez, é melhor... e digo mais, aqui a roina voou...
Quando vc diz que está lento, qto tempo está demorando para rodar ??

ola fernando
no caso a rotina vai ser aplicada durante um loop de range dinamico que pode ser pequeno ou bem extenso
numa delas pode formartar milhares de celulas independentes " nessa eu ainda tenho que calcular a range total para limpar as propriedades no novo teste."

application.screenupdate = false
sempre uso, só não usei nessa pq é uma função que vai ser chamada por outras macros que já tem

arrays eu sempre uso "tanto que as vezes esqueço como usar propriedades range nas macros"

mas nesse caso só usei array para endereçar as propriedades que vão ser aplicadas

eu bem imaginei de juntar as ranges durante o loop de atribuição de valores e no final formatar tudo de uma só vez

só tenho que imaginar como fazer isso para formatação dinamica "nem numero definido de valores"

e olha que eu to querendo adicionar a propriedade de cor de borda e cor de fonte

dim rng as range
set range = application.union(range("a1"),range("g6"),range("g4:k10"))

assim vc une todos os ranges num só , faça um loop com o union dentro... e dps vc formata tudo de uma vez...

meu problema não é juntar as range
o fato é que vão ser muitos conjuntos com propriedades diferentes

são 3 loops um dentro do outro
mais um grupo de array e if que dependendo da posição e do valor vai ter uma formatação diferente
e como essas posição e esse valor mudam de acordo com as escolhas inseridas
fica dificil determinar os limites

se for depender dos valores das células, puxe todas numa matriz e do for ver valor, leia da matriz ao invés de ler do range...

dim Mtz as variant
mtz = rng.value

se misturar essa linha com a q mandei antes, vc terá todo o range, numa matriz...

bem fernando como o numero de formatações é desconhecido
tipo no loop tem os valores mestres que depende da celula e do valor que foi colocado ali, e os valores escravos que vai ter uma tonalidade diferente dessa dor do mestre, mas tem os valores que divide a cor de dois mestres por causa do encontro "próximas"
a parte de cores ainda estou trabalhando, por enquanto a matemática é simples pq os cálculos para um colorímetro perfeito é meio chata de fazer por causa dos valores logaritmos.

por enquanto vou usar do jeito que está, mas depois vou trabalhar um array para juntar todas as celulas no loop e suas formatações
depois no final esse array vai parsar por um filtro,
tipo:
pega a primeira range e as suas formatações,
depois num loop procura formataçõe iguais
e vai setando uma union das ranges
e no final formata a planilha,
depois pega a segunda formatação "diferente da primeira" e faz o loop para pegar todas iguais e formatar tudo junto, e por aí vai

eita que trabalho...
mas vou fazer isso quando a macro em si estiver pronta
mas valeu pela ajuda, eu pensei que tinha algo que pudesse melhorar na macro