just another note.....this seems to delay the opening of the file by a couple
of seconds...any reasons why????

"amit" wrote:

thx Mark and Hector this worked great....although i did make a change i
wanted this to happen when opening the file and reverse the change when
closing the file and so called the minimize n expand subs within open and
beforeclose subs...

Private Sub Workbook_Open()
Application.DisplayFormulaBar = False
Call Minimize_Ribbon
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFormulaBar = True
Call Full_Ribbon
End Sub

Sub Minimize_Ribbon()
If Application.CommandBars("Ribbon").Height 80 Then SendKeys "^{F1}"
End Sub

Sub Full_Ribbon()
If Application.CommandBars("Ribbon").Height < 80 Then SendKeys "^{F1}"
End Sub

just putting this outthere for anyone who might need a similar
functionality...thx again...
"Mark Ivey" wrote:

Great addition Hector...

Thanks for the input.

Mark

"Hctor Miguel" wrote in message
...
hi, guys !

just to be sure it "acts" the way you need...

Sub Minimize_Ribbon()
If Application.CommandBars("Ribbon").Height 80 Then SendKeys "^{F1}"
End Sub

Sub Full_Ribbon()
If Application.CommandBars("Ribbon").Height < 80 Then SendKeys "^{F1}"
End Sub

hth,
hector.

Mark Ivey wrote in message ...
Give this a go...
Sub hide_unhide_Ribbons()
Application.SendKeys ("^{F1}")
End Sub

amit wrote in message ...
just to be clear....i need the view that we get when double clicked on
"Home" in excel 2007..