My case statement is just ‘Case "Major"’ but I have too many of them and most of the sub code is all the same. How can I say ‘Case "this" or "that" or "another”’ For:
Case "Pass"
If Cells(cell.Row, "M") = "Major" Or Cells(cell.Row, "M") = "Minor" Or Cells(cell.Row, "M") = "major" Or Cells(cell.Row, "M") = "minor" Then
.ColorIndex = 33
.Bold = True
Else
.ColorIndex = 10
.Bold = False
End If
Case "pass"
If Cells(cell.Row, "M") = "Major" Or Cells(cell.Row, "M") = "Minor" Or Cells(cell.Row, "M") = "major" Or Cells(cell.Row, "M") = "minor" Then
.ColorIndex = 33
.Bold = True
Else
.ColorIndex = 10
.Bold = False
End If
Case "Major"
If Cells(cell.Row, "G") = "Pass" Or Cells(cell.Row, "G") = "pass" Then
.ColorIndex = 33
.Bold = True
Else
.ColorIndex = 10
.Bold = False
End If
Case "Fail"
.ColorIndex = 3
.Bold = False
Case "fail"
.ColorIndex = 3
.Bold = False
Case ""
.ColorIndex = 1
.Bold = False
Case " "
.ColorIndex = 1
.Bold = False
Case Else
.ColorIndex = 1
.Bold = False
Case "Pass"
If Cells(cell.Row, "M") = "Major" Or Cells(cell.Row, "M") = "Minor" Or Cells(cell.Row, "M") = "major" Or Cells(cell.Row, "M") = "minor" Then
.ColorIndex = 33
.Bold = True
Else
.ColorIndex = 10
.Bold = False
End If
Case "pass"
If Cells(cell.Row, "M") = "Major" Or Cells(cell.Row, "M") = "Minor" Or Cells(cell.Row, "M") = "major" Or Cells(cell.Row, "M") = "minor" Then
.ColorIndex = 33
.Bold = True
Else
.ColorIndex = 10
.Bold = False
End If
Case "Major"
If Cells(cell.Row, "G") = "Pass" Or Cells(cell.Row, "G") = "pass" Then
.ColorIndex = 33
.Bold = True
Else
.ColorIndex = 10
.Bold = False
End If
Case "Fail"
.ColorIndex = 3
.Bold = False
Case "fail"
.ColorIndex = 3
.Bold = False
Case ""
.ColorIndex = 1
.Bold = False
Case " "
.ColorIndex = 1
.Bold = False
Case Else
.ColorIndex = 1
.Bold = False