Buenas Trdes
Sería posible que alguien me ayudara para que el código que e muestra (bucle), lo pueda utilizar pero con variable.
Sub Ejemplo4_11()
Range("A1").Select
Do Until ActiveCell.Value = 0
ActiveCell.Value = 2 * ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Saludos cordiales y muchas gracias
EMHJ
