Positioning a cell at the top left of the screen

Hello,
Is there a way of selecting a cell and ensuring that the selected cell is
always at the top left of the screen?
Thank you

You could do

Application.goto activecell, true
activecell.offset(1,1).select
activewindow.freezepanes = true

Bob Flanagan
Macro Systems
Delaware, U.S. 302-234-9857
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel

"Ben" <[email protected]> wrote in message
news:[email protected]...
> Hello,
> Is there a way of selecting a cell and ensuring that the selected cell is
> always at the top left of the screen?
> Thank you

Hi Ben,

Try these:
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollColumn = 3

Best Regards,
Walt Weber

"Ben" wrote:

> Hello,
> Is there a way of selecting a cell and ensuring that the selected cell is
> always at the top left of the screen?
> Thank you

Oops! That should be:

ActiveWindow.ScrollRow = Activecell.Row
ActiveWindow.ScrollColumn = Activecell.Column

Best Regards,
Walt Weber

"Walt" wrote:

> Hi Ben,
>
> Try these:
> ActiveWindow.ScrollRow = 3
> ActiveWindow.ScrollColumn = 3
>
> Best Regards,
> Walt Weber
>
> "Ben" wrote:
>
> > Hello,
> > Is there a way of selecting a cell and ensuring that the selected cell is
> > always at the top left of the screen?
> > Thank you

One way...

Application.Goto ActiveCell, True

HTH :>)
--
Dana DeLouis
Win XP & Office 2003


"Ben" <[email protected]> wrote in message
news:[email protected]...
> Hello,
> Is there a way of selecting a cell and ensuring that the selected cell is
> always at the top left of the screen?
> Thank you