The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.
One of a set of tools we're offering as a way of saying thank you for being a part of the community.
Sub EE_CellCheckCode()
Dim rng1 As Range, rng2 As Range
Set rng1 = ActiveSheet.Range("A1:A" & ActiveSheet.UsedRange.Rows
Set rng2 = ActiveSheet.Range("D1:D" & ActiveSheet.UsedRange.Rows
For Each cell In rng1
cell.Select
If cell.Value <> "Toyota" Then 'Checks for TOYOTA in the cell (ColumnA)
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
End With
Else
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next
For Each cell In rng2
cell.Select
If cell.Value <> "Corolla" Then 'Checks for COROLLAin the cell (ColumnD)
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
End With
Else
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next
End Sub