Sub FindMissingClientSheets()
    ' 1. 변수 선언
    Dim clientList As Variant
    Dim ws As Worksheet
    Dim i As Long
    Dim isFound As Boolean
    Dim missingList As String
    Dim clientName As Variant

    ' 2. 비교할 거래처 리스트 정의 (기존 리스트 입력)
    ' 리스트를 수정하려면 Array 내부의 값을 변경하면 됩니다.
    clientList = Array("삼성전자", "LG화학", "현대모비스", "네이버", "카카오", _
                       "롯데제과", "한화에어로스페이스", "CJ제일제당", "포스코인터내셔널", "SK하이닉스")

    missingList = ""

    ' 3. 거래처 리스트를 순회하며 시트 존재 여부 확인
    For i = LBound(clientList) To UBound(clientList)
        clientName = clientList(i)
        isFound = False ' 각 거래처를 확인하기 전 초기화

        ' 4. 현재 파일의 모든 시트 이름을 확인
        For Each ws In ThisWorkbook.Worksheets
            If ws.Name = clientName Then
                isFound = True
                Exit For ' 시트를 찾았으므로 내부 루프 탈출
            End If
        Next ws

        ' 5. 시트를 찾지 못한 경우 누락 리스트에 추가
        If isFound = False Then
            If missingList = "" Then
                missingList = clientName
            Else
                missingList = missingList & vbCrLf & clientName
            End If
        End If
    Next i

    ' 6. 결과 출력 (메세지박스)
    If missingList <> "" Then
        MsgBox "다음 시트가 누락되었습니다:" & vbCrLf & vbCrLf & missingList, vbExclamation, "누락된 시트 확인"
    Else
        MsgBox "모든 거래처 시트가 존재합니다.", vbInformation, "확인 완료"
    End If
End Sub