Inputbox de Advertencia

Hola, Oscar !

... al activar una celda ... inputbox de advertencia "¿Está Ud seguro de cambiar el Actual Valor?"
... si se decide a hacerlo se escribe en el campo de InputBox y éste lleva ese valor a esa celda ... la celda es la "F56"

==> pon las siguientes lineas en el modulo de codigo de 'la hoja' ...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$F$56" Then Exit Sub
Dim NuevoDato As Variant
If MsgBox("¿Está Ud seguro de cambiar el Actual Valor?", _
vbYesNo + vbQuestion + vbDefaultButton2, _
"Confirmación") = vbYes Then
NuevoDato = Trim(InputBox("Introduce el dato nuevo...", "Modificando..."))
If NuevoDato = "" Then GoTo Salir
Target = NuevoDato
Exit Sub
End If
Salir:
Range("a1").Select
End Sub
_______
Saludos,
Héctor.
MS-MVP