Nem vi o exemplo do colega vbajr10 mas ve se ajuda
Em Esta Pasta de Trabalho
Private Sub Workbook_Open()
If Sheets("Plan1").Range("C12").Value <> 0 Then
MsgBox "Atenção Existem Pagamentos Para Realizar Nesta Data", vbInformation, "Atenção - Verifique Pagamentos"
End If
End Sub
Troque Plan1 pelo nome da planilha que vc precisa que a verificação seja realizada.
Este Codigo vai funcionar Qdo Abrir o Arquivo
Se quiser que funcione diferente troque o evento
Marcelo Prudencio
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Postado : 25/07/2016 4:50 pm