Cargar Combobox automáticamente al agregar hojas

Hola Christian, que tal!... Una vez más con dudas... Te comento, tengo un combobox que me permite ir a cada una de las hojas del libro. El problema o duda, es que si agrego una hoja nueva ( a partir de una macro), para que se cargue en el combo debo cerrar el libro. Mi idea es que se cargue automáticamente, sin haber de cerrar y abrir el libro.
En el objeto ThisWorkbook tengo la siguiente rutina:
Private Sub Workbook_Open()
Dim w As Worksheet
For Each w In ThisWorkbook.Worksheets
If w.Name <> "Hoja3" And w.Name <> "Hoja1" And w.Name <> "Plantilla" And w.Name <> "Gràfics" Then
Hoja2.ComboBox1.AddItem w.Name
End If
Next w
End Sub
La rutina anterior carga hojas excepto "Hoja3", "Hoja1", "Plantilla" y "Gràfics".
En el ComboBox (que está en el objeto "Plantilla") tengo el siguiente código:
Private Sub ComboBox1_Click()
On Error Resume Next
Sheets(ComboBox1.Text).Select
End Sub
He intentado resolverlo, ayer dediqué bastante tiempo, pero hasta donde sé, que no es mucho!, no ha habido éxito..! Solamente si cierro el libro!
Como siempre, gracias por tu ayuda y tiempo..!
Saludos