asked on 9/15/2016
For Each rngSupervisor In Range("tblSupervisor[Supervisor]") sBody = "Here is the expiration report as of " & Format(Now, "yyyy/mm/dd") & " for " & rngSupervisor & " - Please Recertify ASAP " & vbNewLine
Select allOpen in new window