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
@mattty started
London Fixed Gear and Single-Speed is a community of predominantly fixed gear and single-speed cyclists in and around London, UK.
This site is supported almost exclusively by donations. Please consider donating a small amount regularly.
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
End If
End Sub
[/code]
Where A1 is the cell getting the colouring action