Format Table Borders

[VeeBa]

Hi Everyone! Aplogies but I know this seems REALLY basic but i really don't know how to go thru (i've been playing around with excel for a long time now). Anyone knows how i can put borders (all borders) in my table with gray lines instead of the usual black (automatic) lines? The lines look gray-ish (somehow a little invisible) and not the usual black. I want to insert in my codes, so if possible I need in in vba code format.. Thanks guys for the help!

 

[SyedUsman]

Dear veeba

Please see the code below

Select your range & Run the code


Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ThemeColor = 3
.TintAndShade = -0.249977111117893
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ThemeColor = 3
.TintAndShade = -0.249977111117893
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ThemeColor = 3
.TintAndShade = -0.249977111117893
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ThemeColor = 3
.TintAndShade = -0.249977111117893
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ThemeColor = 3
.TintAndShade = -0.249977111117893
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ThemeColor = 3
.TintAndShade = -0.249977111117893
.Weight = xlThin
End With

Hope it helps

 

[VeeBa]

Dear veeba

Please see the code below

Select your range & Run the code


Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ThemeColor = 3
.TintAndShade = -0.249977111117893
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ThemeColor = 3
.TintAndShade = -0.249977111117893
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ThemeColor = 3
.TintAndShade = -0.249977111117893
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ThemeColor = 3
.TintAndShade = -0.249977111117893
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ThemeColor = 3
.TintAndShade = -0.249977111117893
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ThemeColor = 3
.TintAndShade = -0.249977111117893
.Weight = xlThin
End With

Hope it helps

Will try this one. Thanks buddy!