Require workbook open vba

[kelly1]

I have 2 linked workbooks

I open workbook ‘Team Sheet.xls’ first
Then open ‘forms.xls’ second

What I need is
When the ‘Forms.xls’ opens, it goes straight to ‘Team Sheet.xls’ worksheet ‘Totals’ A1

Could someone help please?


Kelly

 

[Smitty]

You can use something like this:

<font face=Tahoma><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Workbook_Open()
    Windows("Team Sheet").Activate
    Application.Goto [<SPAN style="color:#007F00">'Totals'!A1]</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Note that you might want to record opening the Forms workbook (you'll get the correct path with the recorder) and putting that in the Team Sheet Workbook_Open event.

Hope that helps,

Smitty

 

[kelly1]

The recorder produce this:

Sub Macro2()
'
'
Windows("Team Sheet.xls").Activate
Range("A1").Select
End Sub


I can't get it to work with a worksheet open
I get error 9
Script out of range


Kelly

 

[Smitty]

Hmmm....You'll get that error if Team Sheet isn't open, but it should work just fine as recorded.

Smitty

 

[kelly1]

I've put this in the worksheet and am getting the error on line
Windows("Team Sheet.xls").Activate

This is with the other sheet open





Private Sub Workbook_Open()

'
'
Windows("Team Sheet.xls").Activate
Application.Goto ['Totals'!A1]
End Sub