Private Sub CommandButton2_Click()

    Dim 직원 As Range
    Dim 선택항목 As Node
    
    Set 직원 = Range("C3", Cells(Rows.Count, "C").End(xlUp))
    Set 선택항목 = TreeView1.SelectedItem

    If Not 선택항목.Parent Is Nothing Then

        If MsgBox("정말 퇴사했습니까?", vbYesNo) = vbYes Then
        
            직원.Find(What:=선택항목.Text).Offset(, 3).Value = "O"
            선택항목.Parent.Selected = True
            TextBox1.Value = ""
            
            TreeView1.Nodes.Remove 선택항목.Index
            
            Label2.Caption = "직원 수 : " & TreeView1.SelectedItem.Children
            
        End If

    End If

End Sub