opening workbook on specific cell

[dave bates]

Hi
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
Could somebody please help me with the following with excel 2003
<o></o>
I want to be able to set a workbook to open on a specific cell on a specific worksheet say A4 sheet 1.

thanks

 

[SteveO59L]

Private Sub Workbook_Open()
Sheets("sheet1").Range("a4").Select
End Sub

 

[grizz]

this is another code--- put it in This Workbook

Private Sub Workbook_Open()
Application.Goto reference:=Sheet1.Range("A1"), scroll:=True
End Sub

 

[dave bates]

thanks for the responses.

I'm obvioulsy doing something wrong because I can't get either codes to work!

I have tried both codes by typing into This Workbook, no error is given but the workbook still opens with the the cell selected that it was saved on

 

[grizz]

did you try to highlight it copy and paste it into your workbook

 

[dave bates]

yes

copied from posting and pasted into the ThisWorkBook(Code)

 

[grizz]

do you have Macros enabled -- this could cause it not to work

 

[dave bates]

hi<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
yes macros are enabled<o></o>
<o></o>
I think the problem may have been that I had copied the code in to the individual worksheets listed under Microsoft Excel Objects rather then double clicking into the ThisWorkbook.<o></o>
<o></o>
I have tried again, the code works if I save and close on sheet 1 but if I save and close on another sheet that I get the following error<o></o>
<o> </o>
Run time error ‘1004’ selected method of Range class failed<o></o>
<o> </o>
Sorry to be a pain<o></o>

<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" /><v:shapetype id=_x0000_t75 stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" oreferrelative="t" o:spt="75" coordsize="21600,21600"> <v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><vath o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></vath><o:lock aspectratio="t" v:ext="edit"></o:lock></v:shapetype>

 

[grizz]

try pasting this in your workbook this will open on sheet 3 --- change as required

Private Sub Workbook_Open()
With Application
.ScreenUpdating = False
Worksheets("sheet3").Activate
.ScreenUpdating = True
End With
End Sub

 

[markmzz]

Dave bates,

Or try this:

Private Sub Workbook_Open()
Sheets("Sheet1").Activate
Range("A4").Select
End Sub

Markmzz