VBA Code:
' VBA Code to Calculate Age from Birthdate in Excel
Sub CalculateAge()
Dim birthDate As Date
Dim age As Integer
' Prompt the user to enter a birth date
birthDate = InputBox("Enter the birth date (MM/DD/YYYY):")
' Calculate the age based on the current date
age = DateDiff("yyyy", birthDate, Date)
' Display the result
MsgBox "The age is: " & age
End Sub