Attribute VB_Name = "testwindowope8"
Sub ƒeƒXƒg()

    If ActiveWindow.EnableResize = True Then
        ActiveWindow.EnableResize = False
    Else
        ActiveWindow.EnableResize = True
    End If
    
End Sub