next 7 day birthday list

[Kunalp]

In below code i get day wise birthday.. now i need 7 day birthday list in pop



Private Sub Workbook_Open()
Dim ws As Worksheet
Dim rng As Range
Dim lRow As Long, i As Long
Dim msg As String

Set ws = Sheet1

msg = "Name/DOB"

With ws
lRow = .Range("D" & .Rows.Count).End(xlUp).Row

For i = 2 To lRow

If Format(.Range("E" & i).Value, "DD/MM") = Format(Now, "DD/MM") Then _
msg = msg & vbNewLine & .Range("C" & i).Value & "(" & .Range("B" & i).Value & ")"


If Format(.Range("E" & i).Value, "DD/MM") = Format(Now, "DD/MM") Then _
msg = msg & vbNewLine & .Range("D" & i).Value & "(" & .Range("E" & i).Value & ")"

If Format(.Range("H" & i).Value, "DD/MM") = Format(Now, "DD/MM") Then _
msg = msg & vbNewLine & .Range("G" & i).Value & "(" & .Range("H" & i).Value & ")"
Next

MsgBox msg
End With
End Sub

[westconn1]

you can try like

if DateSerial(year(now),month(range("d4")),day(range("d4"))) < date+7 then

change range to suit

[Kunalp]

did't work can u explain in my code...

[Kunalp]

please can u help me for that