Mauricio Marques Azevedo

Estou querendo automatizar minha planilha criando um corretor ortográfico, porém quando o Excel identifica o erro abre uma caixa de dialogo para que a mudança seja realizada manualmente, sendo necessário clicar em "Alterar". Tem algum código que possa ser utilizado para que as alterações sejam realizadas automaticamente? Sub teste10() Dim rng As Range Set rng = Planilha1.Range("A1").CurrentRegion rng.CheckSpelling SpellLang:=1046 End Sub Desde Já agradeço pela ajuda !!!