With
ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.Weight = xlThin
End
With
With
ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.Weight = xlThin
End
With
With
ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.Weight = xlThin
End
With
With
ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.Weight = xlThin
End
With
If
ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Rows.Count > 1
Then
With
ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.Weight = xlThin
End
With
End
If
With
ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.Weight = xlThin
End
With