Sub sistence()
Dim dd As Date
dd = Date
MsgBox (Format(dd, "yyyy"))
End Sub

--
Gary''s Student - gsnu200740


"Bob" wrote:

The contents of the cell that I'm copying (and then pasting) in the formula
below is a date:

Worksheets(Sheet1Name).Cells(Sheet1DateRowPointer, h). _
Copy Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
Sheet2YearColPointer)

Prior to pasting, however, I need to extract just the Year value. But as
best as I can tell, VBA does not support the YEAR function.

Can someone kindly tell me how I can modify my code to extract and paste
just the Year? Thanks in advance for any help.