Ejecutar macro de objeto hoja

Hola amigos: quisiera su ayuda con el siguiente macro, sucede que este macro llena un combobox con datos de una bd access y funciona muy bien, el problema es que quisiera que se ejecute al momento de abrir ell libro en el objeto this workbook pero como esta contenida dentro de un objeto hoja no funciona porque me envía un mensaje donde me dice que falta la función, el macro es el siguiente y por favor solicito su ayuda.

Sub llama()
Set rs1 = New ADODB.Recordset
Set cnn1 = New ADODB.Connection
cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=H:\22\datos.mdb;Persist Security Info=False"
Set rs1 = cnn1.Execute("select nombre from frases")
While Not rs1.EOF
ComboBox1.AddItem rs1.Fields("nombre")
rs1.MoveNext
Wend
rs1.Close
Set rs1 = Nothing
cnn1.Close
Set cnn1 = Nothing
End Sub

saludos