I am having some syntax issue trying to modify this script now. I am
missing something completly obvious can one of you help. (The reasoning

behind this is that when closing the workbook it will save itself twice

each time it saves different sheets will be hidden so that when people
open each workbook only the information they need will be shown.) Here
is my code.

Sub hidebut()
For Each ws In Worksheets
If Active.Workbook = "abefrof.xls" Then
If ws.Name < "Solution Direct Tracking" Then ws.Visible = True
Next ws


If Active.Workbook = "abetest1.xls" Then
If ws.Name < "Solution Direct Tracking" Then ws.Visible = False
Next ws


End Sub


Thanks for all the help