angelcrisnor respondió:
Creo que lo único que falta es incluir el trocito que te marco más abajo en negrita. Saludos Angel ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Sub UValor() Udato = ActiveCell.Value Ucelda = ActiveCell.Address Range("A2").Select ''Anota...