Format as table with the help of VBA code

Hello Everyone, I have tried to change FORMAT AS TABLE in all sheets in same time with the help of VBA code. It is run right but it came different color.. like - So, what shoul...

Book1.xlsm34 KB

Macros and VBA

HansVogelaar

Jun 18, 2022

Excel Try this:

Sub Macro4()
    Dim w As Worksheet
    Dim r As Range
    For Each w In Worksheets
        If w.ListObjects.Count < 1 Then
            Set r = w.Range("A1").CurrentRegion
            r.Interior.ColorIndex = xlColorIndexNone
            w.ListObjects.Add(Source:=r).Name = w.Name
        End If
    Next w
End Sub

HansVogelaar

MVP

Jun 18, 2022

Excel Try this:

Sub Macro4()
    Dim w As Worksheet
    Dim r As Range
    For Each w In Worksheets
        If w.ListObjects.Count < 1 Then
            Set r = w.Range("A1").CurrentRegion
            r.Interior.ColorIndex = xlColorIndexNone
            w.ListObjects.Add(Source:=r).Name = w.Name
        End If
    Next w
End Sub

Excel
Iron Contributor
Jun 18, 2022
Thank you so much sir

Forum Discussion

Format as table with the help of VBA code

Resources