Ejecutar macro al abrir una Hoja de Excel.

Tiempo atrás un usuario me preguntó cómo podría ejecutar una macro de manera automática cada vez que abriera una hoja de su Libro de Excel. Se trataba de transponer un listado de datos de una Hoja a una segunda cada vez que abrieramos esta última.
Realmente será válida para cualquier macro que queramos que se autoejecute al abrir una Hoja.
La clave de esta opción es la instrucción SUB Worksheet_activate () que emplearemos para crear nuestra macro.
Veámoslo con un ejemplo.
Tenemos el siguiente listado en la Hoja1 de nuestro Libro:

Para ejemplificar esta instrucción usaré una macro sencilla que transpone nuestro listado vertical en horizontal. Este código se deberá editar desde la Hoja2 (no desde algún módulo). Accederemos al Editor de VBA bien presionando Alt+F11, para luego en la ventana del Explorador de Proyectos buscar la 'Hoja2', o bien con el botón derecho del ratón sobre la pestaña de 'Hoja2' seleccionando la opción desplegada de Ver código.

'ejecuta macro al abrir Hoja
Private Sub worksheet_activate()
'transpone listado en la columna A de la Hoja1 al abrir Hoja2
Dim y,f As Integer
y = Cells(WORKSHEETS("Hoja1").Range("A" & Rows.Count).End(xlUp).Row, 1).Row
    For f = 1 To y
        WORKSHEETS("Hoja2").Cells(1, f).Value = WORKSHEETS("Hoja1").Cells(f, 1).Value
    Next f
End Sub

Con esta instrucción lograremos nuestro objetivo, esto es, cada vez que abramos nuestra Hoja2 se transpondrá el listado de valores que se encuentre en la columna A de la 'Hoja1'