Private Sub Workbook_Open()
Dim rngCell As Range
Dim lngSpace As Long
Dim strMessage As String
Dim strName As String
Const STRRECIPIENTS _
As String = "Your.Employees@WhereverYou.Work"
For Each rngCell In Range("tblX[Name]")
If rngCell.Offset(0, 3) = "Anniversary" Then
lngSpace = VBA.InStr(rngCell.Text, " ") - 1
strName = VBA.Left(rngCell.Text, lngSpace)
strMessage = "Congratulations to " & strName & _
".<br><br>We are so absolutely gobsmacked to have " & _
"them working with us.<br><br>Happy " & _
Addth(rngCell.Offset(0, 4).Value) & _
" Work Anniversary, " & strName & "!"
Call Email _
(STRRECIPIENTS, "Let's Celebrate!", strMessage)
strMessage = ""
End If
Next rngCell
End Sub