For Each oCB in Application.Commandbars
If oCB.Visible Then
oCB.Visible = False
End If
Next oCB

Application.Commandbars(1).Enabled = False

You will need to rest at the end.

--
HTH

Bob Phillips

"funkymonkUK"
wrote in message
...

HI is there a some VBA code the will hide the tope tool bars and make
what ever sheet is active to full screen (Similar to a powerpoint
presnetation).


--
funkymonkUK
------------------------------------------------------------------------
funkymonkUK's Profile:
http://www.excelforum.com/member.php...o&userid=18135
View this thread: http://www.excelforum.com/showthread...hreadid=375588