Private Sub ListView1_Click()

    Dim 표 As Range
    Dim 찾은위치 As Range
    Dim 선택항목 As ListItem
    
    Set 표 = Range("B3", Cells(Rows.Count, "E").End(xlUp))
    Set 선택항목 = ListView1.SelectedItem
    Set 찾은위치 = 표.Columns(1).Find(What:=선택항목.Text)

    With 표
        .Interior.ColorIndex = 0
        .Font.ColorIndex = 1
    End With
    
    With Intersect(표, 찾은위치.EntireRow)
        With .Interior
            .ThemeColor = xlThemeColorLight2
            .TintAndShade = 0.4
        End With
        
        .Font.ColorIndex = 2
        
    End With

End Sub
