Cannot find cell borders using vba

How would I adapt that to detect the border style and then change the weight from xDouble to xContinuous for an entire worksheet?

I'm wanting to incorporate that function into a loop I have already written that goes through an entire workbook making various formatting changes to each of the worksheets.

My problem stems from the border style being xDouble, which is an eyesore to our admin department and unfortunately I cannot change how I receive the excel file. So I have written various macros to fix the problems that have arisen but cannot for the life of me figure out the border problem.

If you could push me in the right direction i'd be much appreciated! As this is the first forum i've found with a partial solution available. I only need to adapt it a bit to make it work in my case.

Thanks in advance.

Tim