Something to try. What if instead of checking each cell for it's border size, you just set the entire table to 1pt? Would that speed things up?

As far as the Option Explicit issue, it simply means you have to declare each variable before you can use it. For example,
Dim objTable As Table
Dim someVar As Integer
Dim someVar As String


Dim someVar As Variant
Dim someVar As Object
etc

I am hoping to avoid the 1pt to the entire table. The tables I need to fix are normally empty on the sides, and the borders are normally for sub total row or Total rows.

And since some people update tables from version to versions, they don't always put the word screen as big, so it's hard to detect from border size 0.50 pt vs 0.75, so I might see both on the same row.

I found that macro that I wrote on my post, however, it's without Explicit Option, and since almost if not all are with explicit option, I've put it to my Normal module. All my macros are all categorize by type of module within the Normal modules. I have one for Tbl1, other is for TblAll, Tbl1_opt, TblAll_opt, others are for graphic, some are for batch, I have test modules, I have Notes, and I hve InputBox, etc. wow, that is alot all within the same Normal.dotm. I was hoping to organize them well, to not need any more modules, to easily find the one I need.

I'll keep at it but for now, I'm glad I have one for all tables. Could take a long time if it's for 50+ Tables.

Have a good one,

Cendrinne