Kantlinjer

Sub Borders()

Range(«A1:A10»).Borders.LineStyle = xlDot
Range(«A1:A10»).Borders.LineStyle = xlDash
Range(«A1:A10»).Borders.LineStyle = xlContinius
Range(«A1:A10»).Borders.LineStyle = xlDouble
Range(«A1:A10»).Borders.LineStyle = xlNone

Range(«A1:A10»).Borders.Weight = 1
Range(«A1:A10»).Borders.Weight = 2
Range(«A1:A10»).Borders.Weight = 3
Range(«A1:A10»).Borders.Weight = 4

Range(«A1:A10»).Borders.Color = vbBlack
Range(«A1:A10»).Borders.Color = vbWhite
Range(«A1:A10»).Borders.Color = vbRed
Range(«A1:A10»).Borders.Color = vbGreen
Range(«A1:A10»).Borders.Color = vbBlue
Range(«A1:A10»).Borders.Color = vbYellow
Range(«A1:A10»).Borders.Color = vbMagenta
Range(«A1:A10»).Borders.Color = vbCyan

End Sub