Add Numerical Tab Names in Combo box

[Av8tordude]

My workbook sheet tabs would be named by Year (i.e. 2018, 2019, etc). Currently I have one sheet (i.e. 2019). I would like to display in a combo box the previous 2yrs (i.e. 2018 & 2017) and also the following year (i.e. 2020). Maximum years displayed should be limited to 4. (i.e. 2017 - 2020) because the workbook will only have 4 worksheets.


This code adds the years to the combo box.

Dim ws As WorksheetDim iloop As Integer
 
With cboYear
    For iloop = Year(Date) + 1 To Year(Date) - 2 Step -1
        .AddItem iloop
    Next
End With

I have the code below that displays all sheets that are currently in the workbook (which works as expected).

For Each ws In ActiveWorkbook.Sheets    If ws.Visible <> xlSheetVeryHidden Then cboYear.AddItem ws.Name
Next

If I would like to merge the two codes that will display the years as previously explained. if I have 4 worksheets then, then display the following year. (note: when the following sheet is added, the earliest sheet will be deleted). Is this possible.

Thank you kindly

 

[Fluff]

Do you currently have sheets called 2017,2018,2019 & 2020?

 

[Av8tordude]

only sheets i have is 2019

 

[Fluff]

In that case how can you combine the two codes?
What is that you are trying to do?

 

[Av8tordude]

after re reading my post, ur right. It's not possible. My mistake.