Function OkSheetName(FullPathFile$) As Boolean
Dim Con As Object, Cat As Object, Tbl As Object
ComboBox1.Clear
Set Con = CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" _
& FullPathFile & ";" & "Extended Properties=Excel 8.0;"
Set Cat = CreateObject("ADOX.Catalog")
Set Cat.ActiveConnection = Con
For Each Tbl In Cat.Tables
ComboBox1.AddItem Tbl.Name
Next Tbl
Set Cat = Nothing: Con.Close: Set Con = Nothing
End Function