Try this
Code:
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