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
