Dúvida - msgbox alerta aniversariante

[Eloize Teixeira]

Boa noite, 

 

Tenho uma dúvida,

Preciso que ao abrir minha planilha, o Excel emita MsgBox, como lembretes que x pessoa está fazendo aniversário naquele dia. Essas informações seria retiradas de uma planilha de cadastro, onde a coluna C é o nome e a coluna F é a data de nasc.

 

Peguei um cód na internet, mas ele não está funcionando:

Em EstaPasta_de_trabalho:

Private Sub Workbook_Open()
Call Aniversariantes
End Sub

Num Módulo:

Sub Aniversariantes()

ilin = 2
elin = Sheets("Ani").Range("A65536").End(xlUp).Row

m = Month(Now)
d = Day(Now)

Sheets("Ani").Activate

Do While ilin <= elin
If (d & m) <> (Day(Cells(ilin, 6)) & Month(Cells(ilin, 6))) Then
ilin = ilin + 1
Else
nome = Cells(ilin, 3)
MsgBox ("Não se esqueça dos Parabéns para " & nome & "!!!")
ilin = ilin + 1
End If
Loop

End Sub

Dá erro em:

If (d & m) <> (Day(Cells(ilin, 6)) & Month(Cells(ilin, 6))) Then

Já tentei de tudo, mas não vai..

 

 

Desde já, agradeço!

 

 

Att,

[Basole]

@Eloize Teixeira aqui pra min este codigo esta funcionando perfeitamente.

Qual o error que aparece ?

voce poderia anexar sua planilha ou um modelo com alguns dados ficticios.

 

 

[Eloize Teixeira]

@Basole Inbox.. o resultado perfeito posto depois para ajudar os colegas/!!

 

 

/Att,

[Eloize Teixeira]

Código funciona perfeitamente, o erro em minha planilha é que meus dados começavam na linha 9, e no código estava descrito como linha 2... 

16 horas atrás, Eloize Teixeira disse:

ilin = 2

 

Esse campo deve ser preenchido com o número de linha em que começa os dados reais de sua planilha.