Remove only outside table borders - updating code

Hi Andy / John

I've been trying to write code to remove only the 4 outside borders of any table that's selected. I found this closest code by Andy (after hours of googling and editing codes I've found online), but it's from 2006 and no longer works:
http://www.vbaexpress.com/forum/show...Outline-border

Any help would be much appreciated, as always, thank you.

Code:

---

Dim tblTemp As Table

Set tblTemp = ActivePresentation.Slides(1).Shapes(3).Table
With tblTemp
.Rows(1).Cells.Borders.Item(ppBorderTop).Visible = msoFalse
.Rows(.Rows.Count).Cells.Borders.Item(ppBorderBottom).Visible = msoFalse
.Columns(1).Cells.Borders.Item(ppBorderLeft).Visible = msoFalse
.Columns(.Columns.Count).Cells.Borders.Item(ppBorderRight).Visible = msoFalse
End With


---

It's just to remove (or make white to hide) the outside borders of any table, no matter how many rows or columns it has, no existing inside borders are changed.

Thank you

Does this work for you

Code:

---

Sub ClearBorders()
Dim b as Variant
For each in Array(xlEdgeTop, xlEdgeBottom, xlEdgeleft, XlEdgeRight)
  Selection.Borders(b).Linestyle = xlNone
Next
End Sub

---

There's a long standing bug in the Object Model. I have reported it several times!

Possible workarounds

1. Select the cell (with code) and run

Code:

---

CommandBars.ExecuteMso("BordersNone")

---

You will get an error if the cell is not selected.

2 Set the Border to .Transparency=1

Thank you John