VBA Macro help - Year from Date

[LNG2013]

Hello
I adapted some code from a previous posting of mine to also look at the date column and fill in the year column.
http://www.mrexcel.com/forum/showthread.php?t=552135

Credit goes to HOTPEPPER who helped me set up the Month part of this script.

However, for my data purposes I need the 2 digit year. Eg 11 instead of 2011. Any ideas how I might achieve this?
I put the code below~

Dim tc As Range, yc As Range, y As Long
Set tc = Range("1:1").Find("Date", , , xlWhole)
If tc Is Nothing Then MsgBox "Date Column not Found", vbExclamation: Exit Sub
Set yc = Range("1:1").Find("Year", , , xlWhole)
If tc Is Nothing Then MsgBox "Year Column not Found", vbExclamation: Exit Sub
y = Cells(Rows.Count, tc.Column).End(xlUp).Row
With yc.Offset(1).Resize(y - 1)
    .Formula = "=YEAR(" & tc.Range("A2").Address(0, 0) & ")"
    .Value = .Value
End With

 

[VoG]

Try

.Formula = "=TEXT(YEAR(" & tc.Range("A2").Address(0, 0) & ",""yy"")"

 

[Jonmo1]

Assuming the above code works as desired with the exception of wanting 2 digit year...

Try changing
.Formula = "=YEAR(" & tc.Range("A2").Address(0, 0) & ")"
to
.Formula = "=RIGHT(YEAR(" & tc.Range("A2").Address(0, 0) & "),2)+0"

 

[LNG2013]

Try

.Formula = "=TEXT(YEAR(" & tc.Range("A2").Address(0, 0) & ",""yy"")"

Hey! Thanks for both of your help, here are my results when running it with my other macros.

VoG's code
I'm using excel 2003 and received a Run-Time error '1004' Application-defined or Object-Defined Error


jonmo1's code

This worked! Thank you very much!