Hide Formulas that are currently visible. How?

[Mister H]

Hi All:<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
I have a bunch of spreadsheet s that I want to modify as quickly as possible. Currently when the user open the file the Formula Bar gets hidden via:<o></o>
<o></o>

[COLOR=black][FONT=Verdana]Private Sub Workbook_Open()[/FONT][/COLOR]
[FONT=Verdana][COLOR=black]Application.DisplayFormulaBar = False[/COLOR][/FONT]
[FONT=Verdana][COLOR=black]End Sub[/COLOR][/FONT]
[FONT=Verdana][COLOR=black]Private Sub Workbook_BeforeClose(Cancel As Boolean)[/COLOR][/FONT]
[FONT=Verdana][COLOR=black]Application.DisplayFormulaBar = True[/COLOR][/FONT]
[FONT=Verdana][COLOR=black]End Sub[/COLOR][/FONT]

<o></o>
<o></o>
I was hiding the formulas because some are quite long and they were blocking the sheet when the cell containing the long formula was selected. Unfortunately I was not aware that I could simply check of Hidden in the Protection properties. <o></o>
<o></o>
QUESTION: Is there a way that I can select all the cells on a worksheet (or workbook if doable) that contain a formula and then implement <o></o>
<o></o>

[COLOR=black][FONT=Verdana]Selection.FormulaHidden = True<o:p></o:p>[/FONT][/COLOR]

<o></o>
<o></o>
I don't want to have to manually select the cells if I can avoid it. I searched the forum but my search brought up too many results that were not applicable. If someone has a suggestion or can point me towards a similar post that would be GREAT.<o></o>
<o></o>
Bye 4 Now,<o></o>
Mark

 

[VoG]

Hi Mark. Maybe

ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas).FormulaHidden = True

 

[AlphaFrog]

Try something like this...

Dim ws as Worksheet
For Each ws in Worksheets
    ws.Cells.FormulaHidden = True
Next ws

 

[Mister H]

THANKS Peter, THANKS AlphaFrog.

I will try your codes out. I might have to go with Peters code because after thinking about it there might be a couple of sheets where the formulas should be visible. They are hidden sheets but when unhidden the formulas may have to be visible...

ANYWAY, THANKS again for your suggestions.

Have a GREAT day ALL,
Mark