Formatting an Excel Table

[BCruey]

I have a table that I want to distribute to my team that I want to maintain the formatting in. I have protected the sheets which helps limit which cells can be edited. However, the issue is when people copy and paste from another workbook without doing a paste special as values only, the formatting is compromised. My workaround is to develop a simple code to reformat the table and save the workbook. I only want to format certain columns in the table.

My quick thoughts were this:
Sub SelectColumnData()

ActiveSheet.ListObjects("myTable").ListColumns(4).DataBodyRange.Select
Selection.Font.Color = vbRed
End Sub

I get an error when trying to run this. The columns (data only) get selected, which I want, but the formatting code doesn't work.

Thoughts?

 

[My Aswer Is This]

Try this:

Sub SelectColumnData()
'Modified  3/5/2020  7:23:00 PM  EST
ActiveSheet.ListObjects("myTable").ListColumns(4).DataBodyRange.Font.Color = vbRed
End Sub