If no table totals

[blaisjoel]

I am trying to run a macro to edit a table's formatting including table totals. Some tables do not have table totals and this is creating an error. How do I insert an is error inside my code?

   Range("A2").Select
    ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleMedium8"
    Range("Table1[#Headers]").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Font.Bold = True
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Range("Table1[#Totals]").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Selection.Font.Bold = True

 

[DanteAmor]

Try this

    Range("A2").Select
    ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleMedium8"
    Range("Table1[#Headers]").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Font.Bold = True
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
[B][COLOR=#ff0000]    On Error Resume Next[/COLOR][/B]
        Range("Table1[#Totals]").Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 192
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
        With Selection.Font
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = 0
        End With
        Selection.Font.Bold = True
[B][COLOR=#ff0000]    On Error GoTo 0[/COLOR][/B]

 

[DanteAmor]

Or in this way too:

    Range("A2").Select
    ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleMedium8"
    Range("Table1[#Headers]").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Font.Bold = True
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    
    If ActiveSheet.ListObjects("Table1").ShowTotals Then
        Range("Table1[#Totals]").Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 192
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
        With Selection.Font
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = 0
        End With
        Selection.Font.Bold = True
    End If

 

[DanteAmor]

Another way is by inserting the totals in the table

    Range("A2").Select
    ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleMedium8"
    Range("Table1[#Headers]").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Font.Bold = True
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    
[COLOR=#0000ff]    If ActiveSheet.ListObjects("Table1").ShowTotals = False Then[/COLOR]
[COLOR=#0000ff]        ActiveSheet.ListObjects("Table1").ShowTotals = True[/COLOR]
[COLOR=#0000ff]    End If[/COLOR]
    
    Range("Table1[#Totals]").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Selection.Font.Bold = True

 

[blaisjoel]

Those are great replies. Thanks Dante Amor.

 

[DanteAmor]

I'm glad to help you. I appreciate your kind comments.