Ugghhh....Highlight Text not working

[mrayncrental]

OK, I'm trying to write a routine that highlights both Bold text and Text in [] in a Word table.

I have no idea why this is not working. Help!!

P.S. Any recommendations on good Word/vba reference manual?

 Dim aRng As Range, sText As String
 Dim aTbl As Table, aRow As Integer, aCell As Cell
 Dim fCount As Integer
        
    
       
    Set aTbl = ActiveDocument.Tables(1)
    Set aRng = aTbl.Range
    
    For aRow = 1 To aTbl.Rows.Count
      Set aRng = aTbl.Cell(iRow, 3).Range
      
      With aRng.Find
        .Text = "\[*\]"
        .MatchWildcards = True
        .Replacement.Highlight = True
        .Execute Replace:=wdReplaceAll
     End With
    
      Selection.Find.Font.Bold = True
      With aRng.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchSoundLike = False
        .MatchAllWordForms = False
        .MatchWildcards = False
        .Replacement.Highlight = True
        .Execute Replace:=wdReplaceAll
     End With
        
    
    Next aRow

[macropod]

The code I've posted for you at Windows Secrets (http://windowssecrets.com/forums/sho...g-bold-or-text) has already shown how you can process a whole table without the need to process cells individually. It would require very little effort on your part to adapt that code to highlighting the content of interest.