Sobre la celda activa

Henry Sanchez wrote:

Quisiera poder conocer un metodo para obtener la celda
activa de cada una de las hojas de trabajo, me explico:
Si en la hoja1 selecciono la celda B5, si luego me cambio
a otra hoja de trabajo, la celda B5 volvera a ser la celda
activa cuando retorne a esta hoja de trabajo.
Quiero obtener este valor, estando ubicado en cualquier
hoja de trabajo.

A lo mejor esta solución ya la tienes, pero es una forma de lograrlo:

Sub CeldaActivaOtraHoja()
Dim HojaActual As Worksheet
Dim CeldaActiva As Range

Application.ScreenUpdating = False
Set HojaActual = ActiveSheet
Sheets("Hoja1").Select
Set CeldaActiva = ActiveCell
HojaActual.Select
Application.ScreenUpdating = True
MsgBox "Celda activa en Hoja1 es " & CeldaActiva.Address(0, 0)
End Sub

Modifícalo para lograr lo que necesitas.

Saludos,
Beto
Reply: Erase between the dot (inclusive) and the @.
Responder: Borra la frase obvia y el punto previo.