Alexandre boa noite,
primeiramente obrigado pela atenção. Vi os 3 links e o que mais me interessou foi o ultimo que é com script. Porém quando eu coloco ele dentro do visual BASIC ele não executa o código e nem da erro
SUB AUTO_OPEN()
ON ERROR RESUME NEXT
DIM strNome as string
strNome = application.worksheetfunction.lookup(date(),activesheet.Range("B:B),Activesheet.Range("A:A"))
if strnome <> "" then
MsgBox "O cliente " & strnome & " está de aniversário hoje ! ! !", vbExclamation, "Atenção
endif
END SUB
nao entendo muito de vb, para testar coloquei dados nas colunas a e b e add o codigo ao vb. esta correto ?