VBA: El evento WorkBook open en macros de Excel.

Hace unos días un usuario me consultaba sobre la forma de construir una macro que marcara el color de la etiqueta de la hoja cuyo nombre coincidiera con el año corriente.

...Tengo un libro con varias hojas llamadas 2011-2012-2013-2014-2015 y quiero que la pestaña de la hoja del año en curso se remarque con un color,por ejemplo Rojo, pero de forma automatica, como si le asignaramos un formato condicional., para indicar al usuario de forma visual la hoja a utilizar....

Suponiendo un libro de trabajo, con seis hojas llamadas '2010', '2011', '2012', '2013', '2014' y '2015':

Para ejecutar la acción solicitada insertaremos un evento WorkBook_Open() en la Hoja de trabajo (ThisWorkBook), que recorra los nombres de todas las hojas existentes en el libro, para que cuando encuentre la coincidencia Nombre Hoja con Año presente, le de un color rojo y la deje activa.

El código que insertaremos en ThisWorkBook del Explorador de proyectos del Editor de VBA, formando nuestra macro de Excel, con un evento Open, quedando:

Private Sub Workbook_Open()
'definimos las variables
'para comparar con el nombre de la etiqueta de cada hoja
'definimos el año como cadena de texto - String
Dim numhojas As Long, anyo As String
numhojas = Sheets.Count
anyo = Year(Now())

'recorremos todas las hojas buscando el nombre de la etiqueta
'que coincide con el año presente
For i = 1 To numhojas
    Set etiqueta = ActiveWorkbook.Sheets(i).Tab
    'cuando coincida le damos un color rojo y
    'activamos la hoja
    If Sheets(i).Name = anyo Then
    etiqueta.Color = vbRed
    Sheets(i).Activate
    Else
    etiqueta.Color = xlNone
    End If
Next i
End Sub

Queda una macro sencilla que cada vez que abramos nuestro libro de trabajo la rutina revisará los nombres de la hoja, y marcarña de color rojo aquella que coincida con el año actual.