I would suggest DELETE this bit

Dim shp As Shape
For Each shp In ActiveWindow.Selection.SlideRange.Shapes
With shp
If .HasTable Then .Select
End With
Next shp

Then it will only format the selected table.

If you want to format ALL tables you will need to say so and take a different approach