Calculating Age from given Date Help

[doonan36]

I am getting a Compile error on the red line: Expected Function or variable.

Sub age()
RC = Cells(Rows.Count, "G").End(xlUp).Row + 12 'Start on row 12
For r = 1 To RC
d = Cells(r, "G").Text
sd = Mid(d, 7, 2) & "/" & Mid(d, 5, 2) & "/" & Left(d, 4)
age = Cells(8, "J") - CDate(sd)
Cells(r, "H") = age / 365
Next
End Sub

 

[Joe4]

I suspect maybe the value you are building for sd cannot be converted to a date.
Try adding this line above your age calculation and see what it returns:

MsgBox sd