Dois cliques para inserir a palavra "PAGO"

Esta dica pode ser muito útil para a inserção da um texto numa determinada célula de uma planilha do Excel, a partir de dois cliques com o botão esquerdo do mouse.

Para ilustrar o funcionamento do código em VBA abra o Excel e digite a planilha conforme mostra a imagem abaixo (não digite o texto PAGO constante da coluna D:

• Renomeie a planilha (Plan1) para um nome qualquer;
• Em seguida clique na aba DESENVOLVEDOR e na opção VISUAL BASIC, ou pressione ALT+F11;
• Dê dois cliques no painel esquerdo na planilha (Plan1);
• No painel direito, na coluna objeto, clique na seta para baixo e selecione Worksheet;
• No painel direito, na  coluna Evento, escolha o evento BeforeDoubleClick;
• Será criado  um módulo Private Sub. Apague o código excedente após a linha horizontal, deverá ficar somente o código abaixo: 

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean

INSERIR CÓDIGO

End Sub

• Substitua o texto INSERIR CÓDIGO pelo código abaixo:

If Not Intersect([D3:D7], Target) Is Nothing Then Target.Value = IIf(Target.Value = "", "PAGO", "") 

Cancel = True

• Salve e feche o editor do  Visual Basic.
• Para testar dê dois cliques em qualquer célula da coluna Situação, veja que será inserido automaticamente a palavra PAGO. 
• Opcionalmente você pode adaptar este código para inserir qualquer texto, basta substituir a palavra PAGO no código pelo novo texto, simples, não. 

Por Valter Neves.