Coloca assim: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Call Sua Macro End Sub

AMORIM123, primeiro para entender o que você quer, você coloca seu código para verificar se na planilha wshCadastro já existe a empresa "x" ...

Dá uma olhada nesse:

Oi, veja isso.

Ok, veja agora.

Olá, veja se é isso.

Quando você quer que o evento ocorra? Ao clicar em um botão ou ao digitar a data prevista ou ao abrir a planilha? No código atual não envia o e-mail...

Tenta esse: Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _ (ByVal pCaller As Long, ByVa...

O numlock desliga por causa dessa parte do código, especificamente o Sendkeys: If Len(reception) = 2 Or Len(reception) = 5 Then reception...

Olá, use isto: Private Sub Worksheet_Change(ByVal Target As Range) If [I7].Value = "não" Then MsgBox "Escreva aqui sua ...

Olá. fcarlosc verifica agora, limpei os inúmeros códigos repetidos, pois causam conflitos, também tive que adequar alguns códigos. Cuidado com o cop...

Veja se isso ajuda.

No clique do botão: Application.OnKey "%{F11}"

Bom, não sei exatamente como você quer tratar, se fechar a planilha ou somente desabilitar as macros, mas segue exemplo com as duas alternativas.

Olá, veja se isso ajuda, troque o botão por uma imagem (controle activex).