Two selects in one case

[BMD]

If you enter Pass in column G and there is a no in column B then just run the message box.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim WatchRange As Range
Dim WatchRangeI As Range
Dim WatchRangeB As Range
Dim cell As Range
Dim rng As Range
Dim myMultiAreaRange As Range

Set WatchRange = Sh.Columns("G")
Set WatchRangeI = Sh.Columns("I")
Set WatchRangeB = Sh.Columns("B")

Set myMultiAreaRange = Union(WatchRange, WatchRangeI, WatchRangeB)

If Intersect(Target, myMultiAreaRange) Is Nothing Then Exit Sub
    
Set rng = Intersect(Target, myMultiAreaRange)

For Each cell In rng

    With Sh.Range(Sh.Cells(cell.Row, "A"), Sh.Cells(cell.Row, "O")).Font
        Select Case LCase(cell):
            Case "Pass", "P"
                Select Case Sh.Cells(cell.Row, "I")
                    Case "Major", "Minor", "Maj", "Min"
                        .ColorIndex = 5
                        .Bold = True
                        
                        
                Select Case Sh.Cells(cell.Row, "B")
                    Case "No"
                        MsgBox "This Testcase Is Not Included....Please Set Cloumn B To 'Yes' To Include This Testcase"
                End Select
                        
                        
                    Case Else
                        .ColorIndex = 10
                        .Bold = False
                End Select
            Case "Major", "Maj", "Minor", "Min"
                Select Case Sh.Cells(cell.Row, "G")
                    Case "Pass", "P"
                        .ColorIndex = 5
                        .Bold = True

 

[BMD]

I think I got it I move the select out side.

If Intersect(Target, myMultiAreaRange) Is Nothing Then Exit Sub

Set rng = Intersect(Target, myMultiAreaRange)

For Each cell In rng

Select Case Sh.Cells(cell.Row, "B")
Case "No"
MsgBox "This Testcase Is Not Included....Please Set Cloumn B To 'Yes' To Include This Testcase"
End Select


With Sh.Range(Sh.Cells(cell.Row, "A"), Sh.Cells(cell.Row, "O")).Font
Select Case LCase(cell):
Case "Pass", "P"
Select Case Sh.Cells(cell.Row, "I")
Case "Major", "Minor", "Maj", "Min"
.ColorIndex = 5
.Bold = True
Case Else
.ColorIndex = 10
.Bold = False
End Select

THANKS,
Bruce.