Adding current year to a filename

I am trying to add the current year as part of the worksheet name for a new worksheet. I can't seem to get my code to add the year to the end of the file name. I want the code to end up with new sheet for workbook to be "File_Name_2018". Here is what I have so far.

Please Login or Register  to view this content.

All help is greatly appreciated!

Range("AJ6") = "File_Name_" & Format(Date, "yyyy")