Repeat code in the same sheet for a different list

Column D, Row 8 - 13 = list of yes, no, and N/A
Cell J8 = 3 seperate judgments: Pass, Fail, and one or more items needs resolved.

My question is how do I repeat the code in the same sheet for another list of yes, no, and N/A

Private Sub Worksheet_Change(ByVal Target As Range)

'********************************************************
' Update the Range Below to "Look for updates", in those
' cells. The Check will be run each time a cell in that
' range is updated.
'********************************************************

If Not Intersect(Target, Range("D8:D13")) Is Nothing Then
Call DetermineStatus
End If
End Sub


Sub DetermineStatus()

Dim rng As Range
Dim cell As Range
Dim OutputCell As Range

Dim Pass As Boolean
Dim Fail As Boolean
Dim Progress As Boolean

'*********************************************
' Set the range to Look for Yes and No here:

Set rng = Range("D8:D13")
'***************^^^^^^^************************

'**********************************************
' Set the cell to output the Status here:

Set OutputCell = Range("j8")
'**********************^^^^^*******************

Pass = False
Fail = False
Progress = False

For Each cell In rng

If cell.Value = "Yes" Or cell.Value = "yes" Then

If Fail Then
Progress = True
End If

Pass = True
End If

If cell.Value = "No" Or cell.Value = "no" Then

If Pass Then
Progress = True
End If

Fail = True
End If

Next cell

If Progress Then
'Set the output text for mixed Yes and No answers here:
OutputCell.Value = "One or more items still need attention"

ElseIf Pass Then
'Set the output text for a all Yes here:
OutputCell.Value = "Pass"

ElseIf Fail Then
'Set the output text for all No here:
OutputCell.Value = "Fail"

End If

End Sub

Great! Thank you!

Another quick question:

I want to change the judgment to a symbol.

The legend is as follows:

Cell G128 is Judgment "●" Meaning "Pass"
Cell G129 is Judgment "X" Meaning "Fail"
Cell G130 is Judgment "▲" Meaning "One or more items still need attention"

This is current: OutputCell.Value = "Pass"
Needs to be: OutputCell.Value = Cell(G128)

The first sub you sent me worked great!

Sub DetermineStatus(rng As Range, OutputCell As Range)
Dim strOut As String

strOut = "One or more items still need attention"


If Application.CountIf(rng, "Yes") = 0 Then 'Case insensitive
strOut = "Fail"
ElseIf Application.CountIf(rng, "No") = 0 Then
strOut = "Pass"
End If

Application.EnableEvents = False
OutputCell.Value = strOut
Application.EnableEvents = True
End Sub

This sub however, errors out. Not sure how to fix it.

Sub DetermineStatus(rng As Range, OutputCell As Range)
Dim strOut As String

If Application.CountIf(rng, "Yes") = 0 Then 'Case insensitive
Range("G128").Copy OutputCell
ElseIf Application.CountIf(rng, "No") = 0 Then
Range("G130").Copy OutputCell
Else
Range("G129").Copy OutputCell
End If

Application.EnableEvents = True
End Sub

No it is not protected at all.

Sample 1 is the first Sub you posted.

I have replaced "Fail" with the character code ChrW(9679) and "Pass" with an "X". I am still searching for the Character code for triangle.... I see it is 0070 in the character map but doesn't translate to VBA.

Sample 2 is the second Sub that errors out.

Got ya.

Well this worked like a charm.

Thank you so much for your time!!