lgonzalezve

Hola expertos tengo esta macro Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(False, False) = "B7" Then Range("B7").Select cadena = (ActiveCell.FormulaR1C1) Sheets("Hoja1").Select Sheets("Hoja1").Name = cadena End If End Sub...