Hi,
I've been unsuccessful in finding a solution via the internet. Unfortunately, I've spent hours trying and I'm really stuck. This seems uncomplicated. I am trying to run the code below.

Sub testDate()

Dim LYear As Date
Dim testDate As Date

LYear = Year(R2)
testDate = Date

Sheets("List").Range("R2").Formula = "= " & testDate & ""

Sheets("List").Range("S2").Formula = "=" & LYear & " "

End Sub

I get the following results.
R2 - 1/0/1900
S2 - 1/0/1900

R2 should be today's date and S2 should be only the year (2021).

R2 and S2 cells are formatted as Date (*3/14/2012).

Greatly appreciate assistance with this.

Karen