Para saber qual célula está ativa basta usar o seguinte comando:
ActiveCell.Range("A1").Address(False, False, xlR1C1)
ou
ActiveCell.Range("A1").Address(False, False, xlA1)
Caso queria esse arquivo, favor enviar um email para atendimento@exceleaccess.com solicitando.
Obrigado pela visita!
www.exceleaccess.com
contato@exceleaccess.com
www.exceleaccess.com
www.exceleaccess.com
www.exceleaccess.com