Else 를 추가하면 If가 작동하지 않습니다..

FindText = InputBox("검색할 문자 입력")
        If FindText = "" Then
            MsgBox "입력된 내용이 없습니다"
            For Each xWs In Application.ActiveWorkbook.Worksheets
 
                If xWs.Name <> "Macro" Then 
 
                    xWs.Delete
 
                End If
 
            Next
            Exit Sub
 
        Else
            For k = 2 To srcSht.UsedRange.Columns.Count
                If InStr(Cells(3, k), FindText) <> 0 Then
                    sortkey = k
                Else '문제가 되는 부분입니다!
                    MsgBox "올바르지 않은 Reject 명입니다."
                    For Each xWs In Application.ActiveWorkbook.Worksheets
                    If xWs.Name <> "Macro" Then 
                        xWs.Delete
 
                    End If
 
                    Next
                    Exit Sub
                End If
            Next k
 
            srcSht.Range(Cells(8, 2), Cells(srcSht.UsedRange.Rows.Count, srcSht.UsedRange.Columns.Count)).Select
            With Selection
                .Sort key1:=Cells(8, sortkey), order1:=xlDescending
 
            End With
        End If