Macro cambiar nombre hoja Excel

Hola, quisiera saber si es posible hacer una macro que cambie los nombres de las hojas de un libro de Excel, ya que lo tengo que hacer muchas veces.

Hay varios nombres de hojas, pero solo hay que cambiar los que contengan espacios, por ejemplo de la forma "A (2)" cambiarla a "A(2)", por tanto sería buscar "A (" y reemplazarlo por "A(". No sé si esto será posible hacerlo...

Saludos. 

1 Respuesta

Respuesta
1

Te anexo la macro para cambiar el nombre de la hoja si tiene espacios.

Sub CambiarNombreHoja()
'Por.Dante Amor
    On Error Resume Next
    For Each h In Sheets
        If InStr(1, h.Name, " ") > 0 Then
            nombre = Replace(h.Name, " ", "")
            h.Name = nombre
        End If
    Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas