Miguel Ndk

Dante Amor respondió: 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...