Hi Sid!
Quick n dirty, but may get you started...
Sub ListStyles()
Dim stl As Style
On Error Resume Next
For Each stl In ThisWorkbook.Styles
With ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0)
.Value = stl.Name
.Offset(0, 1).Value = stl.Borders
.Offset(0, 2).Value = stl.Font.Name
End With
Next stl
On Error GoTo 0
End Sub
Don't know what you want for borders, but if you have your Intellisense on, go to the line ending "Borders", type . and choose from what comes up.
You can add the rest of the things you're interested in by adding more lines like .offset(0,x).value = stl.whateveryouwanthere
HTH,