You are reading a single comment by @mattty and its replies. Click here to read the full conversation.
  • Try this:

    [code]

    Sub awesome_code()

    If (WorksheetFunction.CountBlank(Range("C3:CG3")) = 1 And Range("AS3").Value = "Method C" And Range("AT3").Value = "") Or (WorksheetFunction.CountBlank(Range("C3:CG3")) = 0) Then

    Range("A1").Interior.ColorIndex = 0
    Else
    Range("A1").Interior.ColorIndex = 3
    

    End If

    End Sub

    [/code]

    Where A1 is the cell getting the colouring action

About

Avatar for mattty @mattty started