Este fórum está sendo desativado

[Angra]

Boa tarde
Como fazer a execução de tarefas na plan com Private Sub WorkSheets_SelectionChange (ByVal Target As Range) não fique lento (delay).
Exemplo:
Quando digito alguma coisa, o "resultado" é lento, e se passo para a proxima célula é outra "eternidade".

[Basole]

Tente restringir o intervalo no evento SelectionChange.
Exemplo:

Código: Selecionar todos

If Intersect(Target, Range("A1:C10")) Is Nothing Then
 ' seu codigo ..........
' .................
End if

[Angra]

Homi, ficou ligerin, ligerin