VBA Word - Create Table Grid

The following VBA code generates table grid in Word document:

Sub TableGridDesignMacro()

   For Each Table In ActiveDocument.Tables
    Table.Style = "Table Grid"
   Next

End Sub