Color cells vba for next in each worksheet

[Alpacino]

Hi guys,
I have a table range ("C3:BO12") in 25 worksheets in one book. I would like to do is color interior green if value is =>0 and red if <0 in each worksheet.

Would this work. Not at computer cos it's broken but been playing on my mind.

Sub condition
Dim ws As worksheet
Dim cell as range
For each ws in Activeworkbook.worksheet
For each cell in range("C3:BO12")
If cell.value =>0 Then
Cell.interior.color = vbGreen
ElseIf cell.value < 0 Then
Cell.interior.color = vbRed
EndIf
Next cell
Next ws
End Sub

 

[mikerickson]

I see two syntax changes

For each ws in Activeworkbook.worksheet[COLOR="Red"]s[/COLOR]
    For each cell in [COLOR="red"]ws.[/COLOR]range("C3:BO12")

Or have you considered using conditional formatting.

 

[Alpacino]

This only part of problem I have I have a growing table that uses a macro that opens another workbook to get data from I want something that will condition cell depending value. Changes week on week.
Also the table has ref to other cells in table Eg for quarter of the year. But thanks for ur help.

 

[mikerickson]

Perhaps this will do what you want.

Sub Macro1()
    With ThisWorkbook
        With .Worksheets(1).Range("C3:BO12")
            With .Interior
                .ColorIndex = 10
                .Pattern = xlSolid
            End With
            .FormatConditions.Delete
            .FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula1:="0"
            .FormatConditions(1).Interior.ColorIndex = 3
        End With
        
        .Worksheets.FillAcrossSheets Range:=.Worksheets(1).Range("C3:BO12"), Type:=xlFillWithFormats
    End With
End Sub

 

[Alpacino]

Thanks for that I will have a go when my computer is fixed.