Sub getage()
MsgBox Age2(CDate("05-July-1988"))
End Sub
Function Age2(DOB)
Age2 = Int((Now() - DOB) / 365.25) & " Years old"
End Function
VBA Outlook KPI Excel Alt+F11 Dashboards Macros Recording Graphs Automation Developer WaterFall Powerpoint Charts Pivot Tables Forecast Charts