Just found a workable solution. Thought you might like to see how I did it!

This will circulate through the active sheet and adjust the border style based on your preference.

Sub FixBorders()
For Each h In ActiveSheet.UsedRange.Cells
For i = 5 To 10
If h.Borders(i).Weight <> xlThin Then _
h.Borders(i).Weight = xlThin
Next
Next
End Sub