Public Function PersonOfInterest()
    Dim v As Variant, nam As String
    Application.Volatile
    nam = Sheet1.Name
    v = Sheet1.Range("J28").Value
    For i = 2 To 8
        v2 = Sheets(i).Range("J28").Value
        If v2 > v Then
            v = v2
            nam = Sheets(i).Name
        End If
    Next i

    PersonOfInterest = nam
End Function

Public Function PersonsOfInterest()
    Dim v As Variant, nam As String
    Dim i As Long, v2 As Variant
    Application.Volatile
    nam = Sheet1.Name
    v = Sheet1.Range("J28").Value
    For i = 2 To 8
        v2 = Sheets(i).Range("J28").Value
        If v2 > v Then
            v = v2
        End If
    Next i

    PersonsOfInterest = ""
    For i = 1 To 8
        If Sheets(i).Range("J28").Value = v Then
            If PersonsOfInterest = "" Then
                PersonsOfInterest = Sheets(i).Name
            Else
                PersonsOfInterest = PersonsOfInterest & ", " & Sheets(i).Name
            End If
        End If
    Next i
End Function