Open Workbook At A Set Page

[Brian Hearty via OfficeKB.com]

There is a web site called www.officearticles.com that explains some good
tips on using excel. However, I am having difficulties getting one of the
tips to work.
To ensure that a workbook is opened at a specific page regardless of where
the last user was within the book when he/she saved and closed it the
following piece of VB code is suggested:

While in Visual Basic Editor, double-click ThisWorkbook and enter the
following code:
Private Sub Workbook_Open()
Range("Sheet1!A1").Activate
End Sub

Unfortunately I get a run time error each time I attempt to run it - is there
something extra that needs to be included in the code in order for it to run
correctly?


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200511/1

[dominicb]

Good morning Brian Hearty

The code seems sound enough, and from your description, you are certainly pasting it to the right place. But do you have a sheet named "Sheet1"...?

HTH

DominicB

[Roger Govier]

Hi Brian

Do you have a Sheet1?
If not change code to include your sheet name.

Regards

Roger Govier


Brian Hearty via OfficeKB.com wrote:
> There is a web site called www.officearticles.com that explains some good
> tips on using excel. However, I am having difficulties getting one of the
> tips to work.
> To ensure that a workbook is opened at a specific page regardless of where
> the last user was within the book when he/she saved and closed it the
> following piece of VB code is suggested:
>
> While in Visual Basic Editor, double-click ThisWorkbook and enter the
> following code:
> Private Sub Workbook_Open()
> Range("Sheet1!A1").Activate
> End Sub
>
> Unfortunately I get a run time error each time I attempt to run it - is there
> something extra that needs to be included in the code in order for it to run
> correctly?
>
>

[Brian Hearty via OfficeKB.com]

Hi Roger

Thanks for the response. Yes I've tried Sheet1 and an actual sheet name but
no success either way.

Brian


Roger Govier wrote:
>Hi Brian
>
>Do you have a Sheet1?
>If not change code to include your sheet name.
>
>Regards
>
>Roger Govier
>
>> There is a web site called www.officearticles.com that explains some good
>> tips on using excel. However, I am having difficulties getting one of the
>[quoted text clipped - 12 lines]
>> something extra that needs to be included in the code in order for it to run
>> correctly?


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200511/1

[[email protected]]

Try this instead

Private Sub Workbook_Open()

Worksheets("Sheet1").Activate
Range("A1").Activate

End Sub

[Brian Hearty via OfficeKB.com]

Top Man!
Thanks for all the responses on this, the last one from stringstroker62 works
a dream.

Thanks
Brian

[email protected] wrote:
>Try this instead
>
> Private Sub Workbook_Open()
>
>Worksheets("Sheet1").Activate
>Range("A1").Activate
>
>End Sub


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200511/1