Sub UpdateTables()
  Dim x           As Long
  Dim MyTables    As Long: MyTables = ActiveDocument.Tables.Count
  Dim MyNote      As String: MyNote = "Does this table have a table name"
  Dim answer      As String
  Dim aRng As Range
  
  Application.ScreenUpdating = False
  For x = 1 To MyTables
      With ActiveDocument.Tables(x)
        Set aRng = .Range
        aRng.MoveStart Unit:=wdParagraph, Count:=-1
        aRng.Select
        ActiveWindow.ScrollIntoView aRng, True
        'your other code here
      End With
  Next x
  Application.ScreenUpdating = True
End Sub