mds_world,

приблизительно так - надеюсь принцип поймете

Function isSheetInThisBook(book As String, SourceSheet As String) As String

Dim cn As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim zz, shS As String

Set cn = New ADODB.Connection: shS = SourceSheet & "$"
If excel_version < 11.9 Then
cn.Open "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" & book & ";"
Else
cn.Open "DRIVER={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};ReadOnly=1;DBQ=" & book & ";"
End If

If cn.Errors.count > 3 Then
For Each errr In cn.Errors
MsgBox errr.Description
Next
End If

Set rstSchema = cn.OpenSchema(adSchemaTables)
zz = 0
Do Until rstSchema.EOF
zz = zz + 1: o = rstSchema.Fields.Item(2)
If InStr(o, shS) > 0 Then If mTR(o, "'") = shS Then zz = -zz: Exit Do
rstSchema.MoveNext
Loop
If zz < 0 Then isSheetInThisBook = "ok"

rstSchema.Close: Set rstSchema = Nothing
cn.Cancel: cn.Close: Set cn = Nothing

End Function

mds_world,

извиняюсь - недочитал ваш пост

uuuuuuuuuuuuuuu,

- удаляет кавычку

выдрано из контекста - принцип показан

но автору темы не это надо
я поторопился