Problema con macro para cambiar el nombre de la pestaña de la hoja de excel

Sgeo
09 de Agosto del 2005
Tengo unas cuantas hojas de excel que toman el nombre de la etiqueta de cada una de ellas de la casilla A1. pero al vincular estas hojas a una base de datos, aun cambiandome el valor de la casilla A1, no me funciona la macro en cuestion y no me cambia el nombre en la etiqueta. Alguien sabe a que puede ser debido esto???

La macro en cuestion es:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
With ActiveSheet
.Name = .Range("$a$1").Value
End With
End Sub

Gracias