Change Font Size in a table

[ManUBlueJay]

I am trying to change the font size in a table called TableEntryLog as well as remove any horizontal and vertical lines in the table.
This code does not seem to work

Sub ChangeFontSize()
With Worksheets("Log Book").ListObjects("TableEntryLog").Font.Size = 10
End With
End Sub

 

[My Aswer Is This]

Try this:

Sub ChangeFontSize()
'Modified  11/24/2020  6:19:26 AM  EST
Dim r As Range

    For Each r In Sheets("Log Book").ListObjects("TableEntryLog").Range
        r.Font.Size = 10
    Next
End Sub

This will change the font size
Not sure what this means
as well as remove any lines in the table

 

[ManUBlueJay]

Try this:

Sub ChangeFontSize()
'Modified  11/24/2020  6:19:26 AM  EST
Dim r As Range

    For Each r In Sheets("Log Book").ListObjects("TableEntryLog").Range
        r.Font.Size = 10
    Next
End Sub

This will change the font size
Not sure what this means
as well as remove any lines in the table

That works.
I also just disvovered this that also works.

Sub ChangeFontSize()
With Range("TableEntryLog[#All]")
.Font.Size = 10
.Borders.LineStyle = xlNone
End With
End Sub

 

[My Aswer Is This]

That works.
I also just disvovered this that also works.

Sub ChangeFontSize()
With Range("TableEntryLog[#All]")
.Font.Size = 10
.Borders.LineStyle = xlNone
End With
End Sub

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.