try
Sub tst2()
Worksheets("Sheet1").Activate
Range("A1").Select
ActiveWindow.SmallScroll toright:=16
Range("Q1").Select

End Sub

"anshu" wrote:

Hi All,

I thought this will be easy but I am stuck.

I am generating a report in Excel 2003 and once the report is
generated, I want Cell Q1 to be on the top left of the visible screen
(basically I have some more reports left of Q1 which I dont want to be
visible after report is generated..I just want people to be looking at
this report which I generated now)

I was trying this:

Sheets("Sheet1").Select
Range("Q1").Select

It doesn't work.

Please help

Thanks,
Anshuman