Удаление строк в таблице Excel через SQL

Question

Я пытаюсь удалить все строки, которые соответствуют записям в массиве. Прямо сейчас я пытаюсь поместить значения из массива в строку, которая, как я знаю, не сработает, но у меня возникают проблемы с поиском правильного метода. Какие-либо предложения? (или я не должен использовать SQL для этого?)

Public Sub DeleteRows(ByVal surveyString As String)

    Dim surveyArr() As String
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strSQL as String
    Dim strFile As String
    Dim strCon As String

    strFile = ThisWorkbook.FullName
    strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile _
    & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"

    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")

    cn.Open strCon

    If surveyString <> "" Then
        surveyArr = Split(surveyString, "|")
    End If

    'this is where I need help
    strSQL = "DELETE * FROM [Employee$] AS e WHERE e.Division IN " & surveyArr
    rs.Open strSQL, cn