Your code has no hope of working since the Find/Replace block is only run after the workbook has closed.
Furthermore, your use of:
Code:
If objExcel.ActiveWorkbook.Sheets(1).Cells(iCount, 3) = "T" Then Selection.Find.MatchWildcards = True
means that, if any cell in the range contains 'T', then all Finds will be wildcard based.
Finally, your use of 'Selection' and failure to switch off screen updating is what causes the macro to run slowly. To see how to do this properly, check out:
https://www.msofficeforums.com/word-...-not-mail.html, and especially posts 5# and #6 in that thread.