Este fórum está sendo desativado

[angras]

Boa tarde
Tem como ativar e desativar a partir de uma plan sem precisar abrir o editor.
Ex:
Desativado:
'Private Sub Worksheets_SelectionChange (ByVal Target As Ranger
'Calculate
'End sub

Ativado:
Private Sub Worksheets_SelectionChange (ByVal Target As Ranger
Calculate
End sub

Grato

[osvaldomp]

Uma possibilidade, que eu utilizo aqui, é executar ou não executar a macro dependendo de algo em A1.

Exemplo, não executa se A1 contiver qualquer conteúdo (uma letra, um espaço, um número, ...):

Private Sub Worksheets_SelectionChange (ByVal Target As Ranger
If [A1]<>"" Then Exit Sub
Calculate
End sub

[angras]

Eita certin. Grato oswaldomp