In een bestand werk ik met twee werkbladen, werkblad 1 bevat gegevens en berekeningen. Werkblad2 grafieken gekoppeld aan die berekeningen.
.1)Ik selecteer werklbad2  ga naar vensters dan nieuw venster daarna alle vensters en vink vensters van actieve werkmap aan en klik op OK. De werkblad1 en werrkblad2 staan netjes naast elkaar en ik bewaar het geheel.
2) Ik open nu een ander excel bestand en merk dat het maar gedeeltelijk afgebeeld is, dus maximaliseer ik het en sla het op.

Ga ik terug naar het eerste bestand dan zie ik dat werkblad2 (met de grafieken) niet meer afgebeeld is. Om terug beide werkbladen naast elkaar te krijgen, moet ik opnieuw procedure 1 uitvoeren.
Mijn vraag is: kan er mij iemand vertellen hoe ik  bestand (1)   kan bewaren zodat het niet meer beïnvloedt wordt door andere bestanden en omgekeerd.
Ik werk met XP Home en office 2000
Bedankt op voorhand voor de raad
romodeg

romodeg, deze macro zet sheet1 en sheet2 naast mekaar. De parameters kunnen nog aangepast worden om de 2 werkbladen juister te zetten.
Nadeel is dat je bij het openen van een ander bestand op de knop maximaliseren moet klikken.

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveWindow.WindowState = xlNormal
         With ActiveWindow
            .Width = 375
            .Height = 475
                Sheets("sheet1").Select
         End With
             ActiveWindow.NewWindow
    ActiveWindow.WindowState = xlNormal
         With ActiveWindow
             .Width = 375
             .Height = 475
             .Left = 380
                 Sheets("sheet2").Select
         End With
       
   
End Sub


Firmin

Leo, heb de codes nog wat aangepast, met uw kennis zijn er waarschijnlijk nog verbeteringen aan te brengen.
Firmin

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWindow.WindowState = xlMaximized
End Sub

Private Sub Workbook_Open()
ActiveWindow.WindowState = xlNormal
    With ActiveWindow
        .Width = 375
        .Height = 475
            Sheets("sheet1").Select
    End With
    ActiveWindow.NewWindow
    With ActiveWindow
        .Width = 375
        .Height = 475
        .Left = 390.25
        .Top = 6.25
            Sheets("sheet2").Select
    End With
End Sub