Dim xTbl As Table
Dim aCel As Cell
Dim oRng As Range
  
Application.ScreenUpdating = False

For Each xTbl In ActiveDocument.Range.Tables
  For Each aCel In xTbl.Range.Cells

     'If aCel.Range.Characters.Last = ")" Then  'I've tried this but to no aval
      If aCel.Range.Text = ")" Then
        If aCel.Range.ParagraphFormat.RightIndent <> (0.04) Then
        aCel.Range.ParagraphFormat.RightIndent = InchesToPoints(0.04)
        End If
      End If
 
  Next aCel

Next
  Application.ScreenUpdating = True
  Application.ScreenRefresh
  DoEvents
  
lbl_Exit:
  Set xTbl = Nothing
  Set oRng = Nothing
  Exit Sub
  
  On Error GoTo 0