The application object has Top, left, height and width properties

Sub AAABB()
Application.Top = 20
Application.Left = 30
Application.Height = 150
Application.Width = 150
End Sub

as as an example. The application needs to be a window at the time

Sub AAABB()
Application.WindowState = xlNormal
Application.Top = 20
Application.Left = 30
Application.Height = 150
Application.Width = 150
End Sub

--
Regards,
Tom Ogilvy


Jeff Harbin wrote in message
link.net...
Can someone get me started on the general code for changing the size and
location of the entire Excel application including a worksheet?

What I want to do is have the application window shrink down to the size
of
a single enlarged cell in the active workbook where I will then update
messages as the program runs.