Hi
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 who 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
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 who 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