Yo me lo guiso y yo me lo como

hola, Lamari !

Al final he grabado una macro con Alt+AvPag ... cambiado el rango ... exactamente ... quiero que presente.
(Incluso en la ultima he puesto un Volver)

nota que si le modificas el zoom y/o la resolucion a la pantalla... podria ser un rango distindo del 'esperado' [?]
prueba con un codigo +/- como el siguiente...
[... otras lineas de tu macro ...]
With ActiveWindow.VisibleRange
Application.Goto .Offset(, .Columns.Count).Resize(1, 1).Address(, , xlR1C1), True
End With
[... otras lineas de tu macro ...]

para 'el regreso'... antepon un signo '-' [menos] a la propiedad '.Columns.Count'
saludos,
hector.

Muchas Gracias de momento lo he hecho centrado para que aunque quite barras,
etiquetas, etc no quede mal, y como las pantallas en las que se
utilizará son del mismo tamaño de momento queda bien (ya veremos).
"Héctor Miguel" escribió en el mensaje
news:

hola, Lamari !

> Al final he grabado una macro con Alt+AvPag ... cambiado el rango ...

exactamente ... quiero que presente.

> (Incluso en la ultima he puesto un Volver)

nota que si le modificas el zoom y/o la resolucion a la pantalla... podria

ser un rango distindo del 'esperado' [?]

prueba con un codigo +/- como el siguiente...
[... otras lineas de tu macro ...]
With ActiveWindow.VisibleRange
Application.Goto .Offset(, .Columns.Count).Resize(1, 1).Address(, ,

xlR1C1), True

End With
[... otras lineas de tu macro ...]

para 'el regreso'... antepon un signo '-' [menos] a la propiedad

'.Columns.Count'

saludos,
hector.