title: Extract years between Two dates and add Custom Label
body: <p>the below VBA code is extracting the Month and Year, is there possible to get only the year and custom string in the adjacent column as Year1, Year2...</p>
  
  <p><strong>Expected results</strong>
  Year Label</p>
  
  <p>2020 Year1
  2021 Year2</p>
  
  <pre><code>`Sub ExtractYears()
  '
   Dim sc As Range
   Dim Stdt As Date
   Dim Edt As Date
   Dim dDate As Date
   Dim off As Integer
  '
   Stdt = Range("B1") ' start date
   Edt = Range("B2") ' end date
   Set sc = Range("c2") ' start cell
  '
  ' To clear the existing contents in Range D2 till end
   Range("c2").Select
   Range(Selection, Selection.End(xlDown)).Select
   Selection.ClearContents
  
  'Offset
   off = 0
  '
   For dDate = Stdt To Edt
      If Format(dDate, "dd") &lt;= "01" Then
        sc.Offset(off, 0) = Format(dDate, "mmmm yyyy")
        off = off + 1
      End If
   Next dDate
  
  '
  sc.Resize(off, 1).NumberFormat = "mmmm yyyy"
  '
  End Sub
  </code></pre>
  
  <p>`
  Thank you for your time and suggestions</p>
  
  <p><a href="https://i.stack.imgur.com/mniQ2.jpg" rel="nofollow noreferrer">ExcelView</a></p>