Display following year in combo box

[Av8tordude]

I have sheet tabs that are named by the year (i.e. New Report, 2011, 2010 2009, etc). The code below displays the sheet tabs in the combo (which works fine). But, Instead of "New Report" being an option to select, I would like to display the next consecutive year. (i.e. 2012). Will someone assist. Thanks

Private Sub cboYear_Enter()
Dim Sh As Worksheet

If EE Then Exit Sub
EE = False
With cboYear
    For Each Sh In ActiveWorkbook.Sheets
        If ((Sh.Name <> "Security") And (Sh.Name <> "f2106")) Then
            .AddItem Sh.Name
        End If
    Next
End With
EE = True
End Sub

 

[diddi]

Private Sub cboYear_Enter()
Dim Sh As Worksheet
Dim NxtYr as long

If EE Then Exit Sub
EE = False
With cboYear
    For Each Sh In ActiveWorkbook.Sheets
        If ((Sh.Name <> "Security") And (Sh.Name <> "f2106")) Then
            .AddItem Sh.Name
            if val(sh.name)>nxtYr the nxtyr=val(sh.name)
        End If
    Next
    .additem nxtyr + 1
End With
EE = True
End Sub

 

[Av8tordude]

Thank you Diddi