Cambio Nombre hoja

Srs. T.E. De Uds. Necesito ayuda. Tengo el Siguiente código: Private Sub Workbook_SheetActivate(ByVal Sh As Object) GdoHoja = Sh.Name End Sub Public Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _ ByVal Target As Range) If Sh.Name <> GdoHoja...