Keep Cell (Row & Column) format unchanged when activating VBA command button

Hi There

I have a VBA code below that I picket up on the site to create a Work Sheet Index, Hyperlink and populate the sheet list on a sheet called "Index"

The problem I have is, each time I click the command button to update the Sheet "Index" it removes my row coloring, borders and other cosmetic editing features in each cell.

How can the code be adjusted to only copy the font and not change any formatting in Range A:A

Sub ListSheets()
 
Dim ws As Worksheet
Dim x As Integer
 
x = 7
 
Sheets("Index").Range("A:A").Clear
 
For Each ws In Worksheets
 
   Sheets("Index").Cells(x, 1).Select
   ActiveSheet.Hyperlinks.Add _
   Anchor:=Selection, Address:="", SubAddress:= _
   ws.Name & "!A7", TextToDisplay:=ws.Name
   x = x + 1
 
Next ws
 
End Sub