Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Condensing Format Code
I wanted to shorten the macro-made format code:
I used this hoping to shorten the amount of code needed to format the cells, but it gives me a type mismatch. I am also hoping to use Arrays with text in them for many other areas of my code. Is this possible? Set format_range = Worksheets("Surface").Range("A5", cell_range.Offset(cell_count1 - 1, 10)) format_borders = Array("xlEdgeLeft", "xlEdgeTop", "xlEdgeBottom", "xlEdgeRight") Dim c As Long For c = 0 To 3 With format_range.Borders(format_borders(c)) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium End With Next c What am I doing wrong? Thanks. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Condensing VBA code | Excel Discussion (Misc queries) | |||
Condensing Code | Excel Programming | |||
Need help condensing with-end with code | Excel Programming | |||
Trouble Condensing Code | Excel Programming | |||
1.)Input Boxes 2.) Condensing a Code | Excel Programming |