... vbBoolean Then         Exit Sub     End If         Set objWrdApp = CreateObject("Word.Application")         objWrdApp.Visible = False         Set objWrdDoc = objWrdApp.Documents.Open(avFiles)         Set tbl = objWrdDoc.Tables(1)         ActiveSheet.Cells(1, 1) = tbl.Cell(2, 1).Range.text                objWrdDoc.Close True         objWrdApp.Quit         Set objWrdDoc = Nothing: Set objWrdApp = Nothing End Sub