changed drawing, but unchanged focus

[classof]

hello..

i wish command "zoom-extend" to all open drawing.

so i used "windowstate=acmax" for changed active drawing.

my problem is don't move focus to another drawing , on "Application.Documents(i).WindowState = acMax"

 

Sub test()

Dim i As Integer

Dim count As Integer

 

count = Application.Documents.count

i = 0

 

Do

Application.Documents(i).WindowState = acMax

Application.ZoomExtents

i = i + 1

Loop Until i = count

 

end sub

 

please help me.

thank you.

[classof]

i clear my problem..

 

put

Application.Documents(i).Activate

 

after

Application.Documents(i).WindowState = acMax

 

thak you.