How to add a return to page into a before close macro

[country101]

I have a macro already made(thanks to people on here) protect all the worksheets upon leaving. One thing I have noticed as I go into these workbooks is it opens on whatever page you left or saved on. I would like it to open up to the first sheet, which is my master. Could anybody edit the macro so that it always opens to this sheet?<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
Select Case ws.Name
Case "Delta Crew"
ws.Protect "delta"
Case "Dumas"
ws.Protect "supervisor"
Case "Fox"
ws.Protect "supervisor"
Case "Freeman"
ws.Protect "supervisor"
Case "Karnes"
ws.Protect "supervisor"
Case "McGee"
ws.Protect "supervisor"
Case "Morris"
ws.Protect "supervisor"
Case "Spanke"
ws.Protect "supervisor"
Case "Data"
With ws
.Protect "delta"
.Visible = xlVeryHidden
End With<o></o>
End Select
Next ws
End Sub

 

[sykes]

Put this in the same module as your _beforeClose code. above it will be fine:

Private Sub Workbook_Open()
Me.Sheets("Name_of_your_master _here").Activate
End Sub

Obviously, substitute the name of your "Master" sheet in between the brackets, and keep the quotation marks as well

 

[country101]

Sorry it has taken so long to get back. Thanks for the help. I have not tried this out yet. Will this take it back to the master page for anybody, or just me?

 

[sykes]

It'll work for everyone, but it's important that you put it in the right place - so paste it in the same module as the code you've already posted. Above or below it will be fine.

This code will run each time anyone opens the workbook, and will open on your master sheet - as long as you substitute "Name_of_your_master _here" with the actual name of your master sheet.

 

[country101]

Thanks a lot. That's what I was looking for. Looks like it works great.

 

[sykes]

Pleasure. Thanks for the feedback.