Sub AppWindowWidth() With AppWindow .WindowState = cdrWindowNormal .Top = 10 .Left = 10 .Height = 500 .Width = 600 End WithEnd Sub