Como ejecutar una macro al cambiar el valor de la celda b4

Tengo la siguiente macro

Sub Nombrar_Hojas()
  Dim sh As Worksheet
  For Each sh In Sheets
    If sh.Range("A1").Value <> "" Then
      sh.Name = sh.Range("A1")
    End If
  Next
End Sub

Cómo hago para que se ejecute al cambiar el valor numérico de la celda B4

2 Respuestas

Respuesta
1

Puedes agregar el evento change en la hoja que quieres

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Nombrar_Hojas
End Sub
Respuesta
1

Prueba esto:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.CountLarge > 1 Then Exit Sub
  If Not Intersect(Target, Range("B4")) Is Nothing Then
    Call Nombrar_Hojas
  End If
End Sub

¡Gracias nuevamente! :)

Encantado de ayudarte. Gr acias por comentar.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas