I'm looking for a macro to clear rules from all my worksheets of a workbook.

What do you mean by "rules"
If you mean gridlines, there are two ways
1) In Tools | Options | you can uncheck the Gridlines box
OR
2) Use a fill (white will do) on all cells

best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email

"John A" <John (E-Mail Removed)> wrote in message
news:27DF3230-57B9-4F09-867C-(E-Mail Removed)...
> I'm looking for a macro to clear rules from all my worksheets of a
> workbook.

Sub grdlns()
For i = 1 To ThisWorkbook.Sheets.Count
Sheets(i).Activate
ActiveWindow.DisplayGridlines = False
Next
End Sub

"John A" wrote:

> I'm looking for a macro to clear rules from all my worksheets of a workbook.

Are you running Excel 2007 and do you mean Conditional Formatting "Rules"?

If so, I probably can't help..........I don't use 2007.

A couple other responders interpreted "rules" to mean gridlines.

Just wanted to clarify what you're looking for.

In 2003 you could use a macro like this.

Assumes all sheets have some CF so no error checking.

Sub clear_CF()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Cells.SpecialCells(xlCellTypeAllFormatConditions) _
.FormatConditions.Delete
Next ws
End Sub


Gord Dibben MS Excel MVP

On Wed, 5 Nov 2008 14:36:01 -0800, John A <John (E-Mail Removed)>
wrote:

>I'm looking for a macro to clear rules from all my worksheets of a workbook.

I think we lost the OP on this one Gord. I interpreted his post like Bernard
since he said he wanted to clear all rules from all worksheets, it seemed he
meant gridlines. I didn't even think about CF criteria as rules.

"Gord Dibben" wrote:

> Are you running Excel 2007 and do you mean Conditional Formatting "Rules"?
>
> If so, I probably can't help..........I don't use 2007.
>
> A couple other responders interpreted "rules" to mean gridlines.
>
> Just wanted to clarify what you're looking for.
>
> In 2003 you could use a macro like this.
>
> Assumes all sheets have some CF so no error checking.
>
> Sub clear_CF()
> Dim ws As Worksheet
> For Each ws In ThisWorkbook.Worksheets
> ws.Cells.SpecialCells(xlCellTypeAllFormatConditions) _
> .FormatConditions.Delete
> Next ws
> End Sub
>
>
> Gord Dibben MS Excel MVP
>
> On Wed, 5 Nov 2008 14:36:01 -0800, John A <John (E-Mail Removed)>
> wrote:
>
> >I'm looking for a macro to clear rules from all my worksheets of a workbook.
>
>