Loop through excel tables turning on wrap text

[Raddle]

Can anyone help with how to select all tables in a workbook and apply wraptext ?
I am guessing that wrap text is a cell property not a table property because when I add a like like tbl.wraptext=true it errors.

However how do I 'select' the table range and then apply this?

Hints very welcome.

Sub Acnt_FormatTableStyle() 'format the table
Dim tbl As ListObject
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Sheets

For Each tbl In ws.ListObjects


Debug.Print tbl.name

tbl.TableStyle = "TableStyleMedium9"
tbl.ShowAutoFilterDropDown = False
Next tbl

Next ws
End Sub

[Raddle]

Urgh ...

didn't deserve any replies did it .. apols

ActiveSheet.ListObjects(1).Range.Select

With Selection ' I had previously had .interior here which was stopping it from acting on the cells (I guess)


.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
.ShowAutoFilterDropDown = False
.WrapText = True

End With

[alansidman]

crossposted: https://www.mrexcel.com/board/thread.../#post-6123335

[Welshgasman]

You only allowed 11 minutes before posting again?

[Raddle]

Apols I thought that not wasting folk's time if I made progress was encouraged.
noted.