Boa tarde!!
Deixe o calculo das formulas como manual
http://info.abril.com.br/dicas/arquivos ... 1203.shtml
CáLCULO MANUAL
Na área Opções de Cálculo, marque o item Manual se preferir atualizar todos os valores e, somente depois, solicitar o cálculo. Na segunda opção (Automático, Exceto Para Tabelas de Dados), o programa calcula todas as fórmulas menos as que estão em tabelas de dados. Tanto na opção manual como na automática com restrições é possível forçar o Excel a executar o cálculo pressionando Ctrl+F9. A opção Habilitar Cálculo Iterativo deve ser marcada somente quando é necessário o cálculo de referências circulares, ou seja, um cálculo que se refere a seu próprio valor.
Sub AleVBA_FormulasAuto()
Dim ws As Worksheet
Set ws = Plan1
ws.Cells.Replace what:="=", Replacement:="=", _
Lookat:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=fase, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Veja modelo pronto em
http://www.sendspace.com/file/3io099
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 19/12/2012 12:29 pm