How to find a word then cross reference to see if match

[Patriot2879]

Hi good morning hope you can help me please, as i have no idea where to start. In sheet1, In Row A i have peoples names and in Row S i have skills like LV or HV. In Sheet2 i have the data of what person has ie in row a - joe bloggs, and in row s he has skills LV and HV. I would like some code in sheet1 to look at row a and row s for the word 'hv' and do a cross reference with sheet 2 to see if there are any people that dont have the hv skill and highlight this in a message box. Please can you help with this it would be greatly appreciated.

I have only done the below vba code which finds the word 'HV' and highlights the cells in a message box. but this is not what i want and dont know how to amend it to how i want it.

Option Explicit

Private Sub CommandButton1_Click()

        Dim rngResult As Range
        Dim strToFind As String

        'Set to your desired string to find
        strToFind = "HV"

        'If the string you are searching for is located in
        'the worksheet somewhere, you can set the value
        'like this:  strToFind = Worksheets("Sheet1").Range("S").Value
        

        'Look in the used range of a given worksheet
        'Change Sheet1 to match your worksheet name
        With Worksheets("Sheet1").UsedRange

                'Find the first cell that contains the search term
                Set rngResult = .Find(What:=strToFind, LookAt:=xlPart)

                'If it is found, grab the cell address of where the
                'search term can be found
                If Not rngResult Is Nothing Then
                        Dim firstAddress As String, result As String
                        firstAddress = rngResult.Address

                'Loop through the rest of the cells until returning
                'to the first cell that we had a match in.
                Do
                        'Record the cell address of the match
                        'to the result string
                        result = result & rngResult.Address & ","

                        'Go to next cell containing the search term
                        Set rngResult = .FindNext(rngResult)

                'Exit the loop when we reach the starting point
                Loop While rngResult.Address <> firstAddress

                'Output the list of cells that contain the string to find
                MsgBox "Found """ & strToFind & """ in cell(s): " & result

                End If
        End With

End Sub