Dicas Excel Macros VBA

Mensagem de boas vindas bom dia, tarde, noite ao abrir wkb

Pergunta 48:
Preciso de uma macro que seja ligada a horários, que dę boas vindas ao usuário quando abrir o workbook, isto é possível ?

Resposta 48:
sim é possível sim, se for até certa hora da manhă, Bom dia, Boa Tarde e Boa Noite.
Mensagem horário:   boa tarde, boa noite, bom dia., para isso, escolha uma determinada célula, insira a formula, =Agora(), e nomeia range (bem-vindo), insira no módulo workbook ( Auto_Open())


Sub Benvindo_Usuário()
Application.ScreenUpdating = True
currenttime = Hour(Now())
welcomemessage = Range("benvindo")  ' nomeia um range com esse nome
If currenttime < 12 Then
g01 = "Bom dia"
ElseIf currenttime <= 18 Then
g01 = "Boa Tarde"
Else
g01 = "Boa Noite"
End If
Beep
MsgBox "Bom " & g01 & "." & Chr$(10) & Chr$(10) & welcomemessage, _
vbOKOnly + vbInformation, "Bem vindo ao programa "

End Sub