Boa noite!!

Seria .....

Private Sub Workbook_Open()
    Dim cell As Range
    Dim rng As Range
    Set rng = Range("B1:B100")
    Dim strAddresses As String

    For Each cell In rng
        If cell.Value = Date Then strAddresses = strAddresses & cell.Offset(, -1) & vbNewLine
    Next cell
    MsgBox strAddresses, vbInformation
End Sub

Considerando os dados abaixo, é adaptar

Tipo Data
Programa1 9/10/2012
Programa2 10/10/2012
Programa3 11/10/2012
Programa4 9/10/2012
Programa5 19/10/2012
Programa6 9/10/2012

alexandrevba , boa noite

Neste caso o banco de dados deveria estar na planilha do excel, porém meu banco está no access, sendo assim o código acima seria diferente, ou não? Queria encontrar um jeito de conectar ao banco de dados e encontrar na coluna de data inicial as programações do dia vigente, e ao iniciar o sistema a planilha me exibiria a seguinte mensagem:" existem 2 atividades programadas para hoje."

Respondido nesse link viewtopic.php?f=16&p=31266#p31266