Konverter tabel til område

Denne kode burde ændre en Tabel på Ark1

Sub ConvertTableToRange()
Dim rList As Range
Dim ws As Worksheet

For Each ws In Worksheets(Array("Ark1"))
    With ws.ListObjects(1)
        Set rList = .Range
        .Unlist  'Ændrer tabel til normalt område
    End With
   
    With rList
        .Interior.ColorIndex = xlColorIndexNone
        .Font.ColorIndex = xlColorIndexAutomatic
        .Borders.LineStyle = xlLineStyleNone
    End With
Next ws
End Sub

Tak ebea.
Det virkede fint. Fjernede dog de sidste linjer, da jeg ikke vil ændre farver og linjer.

#2 - Du er velkommen ;-) 
Ja, der er "frit slag" til at tilpasse.