Phil,
I don't think you understood what I was trying to do. On your screen, there
are two window control areas. A minimize button, a maximize button and a
toggle button., one set for the workbook, the other for the Excel
Application. Use the Workbook toogle button to resize the workbook, then you
can see as many formula lines and column addresses as you need. Or maybe I
didn't understand what you are trying to do...
Beege
> Beege---actually the larger the screen the more it stretches out the
> formula bar. I think it's just a default in xl. I appreciate the
> post, though :-)
*Now* I see what you're trying to do.
Beege has the right idea: restore (un-maximize) the *document window*
and NOT the application's window. Then shorten the height of the
document window and move it down. You'll have more room to see your
formulae and your columns are in plain view.
Hi
The way I use to get round this problem is to use the following small
macro which toggles my screen between a size which allows me to see the
formula bar with long formulae not overlapping column headings, and the
normal size screen.
I have a button on my toolbar, to which I have assigned this macro, but
also use a keyboard shortcut of Ctrl+q
Sub smallsheet()
If ActiveWindow.WindowState = xlMaximized Then
Windows.Arrange ArrangeStyle:=xlCascade
With ActiveWindow
.Top = 56.5
.Left = -2.75
.Width = 765
.Height = 393
End With
GoTo Finish
End If
ActiveWindow.WindowState = xlMaximized
Finish:
End Sub
You can alter the settings to have the size and position of the screen
that suits you best.

Signature
Regards
Roger Govier
"Phillycheese5"
>
> Beege---actually the larger the screen the more it stretches out the
> formula bar. I think it's just a default in xl. I appreciate the
> post, though :-)
Linc - 09 Jan 2006 02:18 GMT
> Sub smallsheet()
>
[quoted text clipped - 14 lines]
>
> End Sub
Roger, would it work if you used an else clause instead of the GoTo? A
small point, perhaps, but I just don't like GoTo very much. :)
Sub smallsheet()
If ActiveWindow.WindowState = xlMaximized Then
Windows.Arrange ArrangeStyle:=xlCascade
With ActiveWindow
.Top = 56.5
.Left = -2.75
.Width = 765
.Height = 393
End With
Else ' Active window is not maximized
ActiveWindow.WindowState = xlMaximized
End If
End Sub
Linc - 09 Jan 2006 02:20 GMT
> Sub smallsheet()
>
[quoted text clipped - 14 lines]
>
> End Sub
Roger, would it work if you used an else clause instead of the GoTo? A
small point, perhaps, but I just don't like GoTo very much. :)
Sub smallsheet()
If ActiveWindow.WindowState = xlMaximized Then
Windows.Arrange ArrangeStyle:=xlCascade
With ActiveWindow
.Top = 56.5
.Left = -2.75
.Width = 765
.Height = 393
End With
Else ' Active window is not maximized
ActiveWindow.WindowState = xlMaximized
End If
End Sub
Roger Govier - 09 Jan 2006 08:09 GMT
Hi
You're absolutely right, it does work with Else, and in a Toggle
situation, I think I agree it would be better that Goto even though they
both achieve the same outcome.

Signature
Regards
Roger Govier
>> Sub smallsheet()
>>
[quoted text clipped - 33 lines]
>
> End Sub