کوچک شدن فایل های باز اکسل، هنگام اجرای هر دستور vba

[omid0912]

بله
سپاس از شما

[omid0912]

درود بر شما
در شیت دیگری نیز همین کد را دارم، چرا اونجا این اتفاق نمی افتد?!
(ماسفانه من هیچ اطلاعاتی در خصوص کد نویسی ندارم)

...

[omid0912]

Sub Fourteen()
Dim window1 As Window
Set window1 = ActiveWindow
Windows.Arrange xlArrangeStyleVertical
With window1

...

[omid0912]

سلام
عزیزان!
هنگامی که دو یا چند فایل اکسل باز هستند، موقعه اجرای ماکرو با کلیک...