How do I run code on all cells in all tables?

[wido]

Hi. Sorry for my noobness, but we all started as noobs at some point!
The following VBA code does its thing on only one cell. How can I edit it so that it does it on all cells?? Thank you so much.

Dim tbl As Table
For Each tbl In ActiveDocument.Tables
   With tbl
      .Range.Cells(1).WordWrap = True
      .Range.Cells(1).FitText = False
   End With
Next