@kev027 Maravilha! Como eu previa, ridiculamente simples, rs Funcionou assim: Sub Macro2() Dim celula As String celula = ActiveCell.Address ...