Olá Pessoal,

Que tal uma mensagem de bom dia, boa tarde ou boa noite ao abrir a planilha?

Segue o código

Private Sub Workbook_Open()
Dim MinhaHora
MinhaHora = Hour(Now)
Select Case MinhaHora

Case 1 To 5
MsgBox "Prezado(a) Usuário (a), Boa noite! daí vc continua o texto...", vbInformation, "Pop-Up"
Case 6 To 11
MsgBox "Prezado(a) Usuário (a), Bom dia!. daí vc continua o texto...", vbInformation, "Pop-Up"
Case 12 To 17
MsgBox "Prezado(a) Usuário (a), Boa tarde!. daí vc continua o texto...", vbInformation, "Pop-Up"
Case 18 To 24
MsgBox "Prezado(a) Usuário (a), Boa noite!. daí vc continua o texto...", vbInformation, "Pop-Up"
End Select
End Sub

Créditos: comunidade microsoft excel - ORKUT