1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15:
Sub TryThis() Dim oSh As Worksheet Dim oLo As ListObject Dim oWb As Workbook Set oWb = ActiveWorkbook For Each oSh In oWb oSh.Activate For Each oLo In oSh ActiveSheet.ListObjects(oLo).TableStyle = "" Next oLo Next oSh End Sub
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:
Sub TryThis() Dim oSh As Worksheet Dim oLo As ListObject Dim oWb As Workbook Set oWb = ActiveWorkbook For Each oSh In oWb.Worksheets For Each oLo In oSh.ListObjects oLo.TableStyle = "" Next oLo Next oSh End Sub