Shared workbook only retains frames for first user in file.

[Royzer]

Hi.

We have a shared workbook (version 2003) on a shared drive that sometimes has up to 10 people accessing it at the same time. I have set the frames on all the worksheets to B9 and saved the file. The first person to open the file has frames. Subsequent (simultaneous) users do not have frames. It appears that this occurs every time the file is accessed by multiple users at once--whomever opens the file first gets the frames and no one else does. Is there any way to change this so everyone who is in the file at the same time has frames on the worksheets they are working in? Here is the code I used to set the frames:

Sub freezeframesatB9()
Dim vWks As Variant

    For Each vWks In Array("KAKE", "KBTX", "KKCO", "KKTV", "KOLN", "KOLO", "KWTX", "KXII", "WBKO", "WCAV", "WCTV", "WEAU", "WHSV", "WIBW", "WIFR", "WILX", "WITN", "WJHG", "WKYT", "WMTV", "WNDU", "WOWT", "WRDW", "WSAW", "WSAZ", "WSWG", "WTAP", "WTOK", "WTVY", "WVLT", "WYMT", "TV3")
        Application.Goto Worksheets(vWks).Range("B9")
        ActiveWindow.FreezePanes = False
        ActiveWindow.FreezePanes = True
    Next vWks
End Sub

Thanks!