YellowLabPro
03-16-2007, 06:50 AM
I have a small procedure that changes the border to a particular look. But it is on a group of merged cells. The problem is that it only displays on the upper left quadrant.
I tested it on a single cell and it is fine. I tested the menu button on merged cells and that works fine, so I see that merged cells can have a consistent border.
Sub Instructions()
ActiveCell = ("INSTRUCTIONS:" & Chr(10) & "All Purchase Orders Must be Visible on the Outside of the Box." _
& Chr(10) & "Call before Pack/Ship for approval by buyer. Failure to do so could result in refusal of shipment.")
With ActiveCell
.Interior.ColorIndex = 6
.Font.ColorIndex = 3
.Font.Bold = True
.BorderAround Weight:=xlThick, ColorIndex:=3
End With
End Sub
Thanks,
YLP
I tested it on a single cell and it is fine. I tested the menu button on merged cells and that works fine, so I see that merged cells can have a consistent border.
Sub Instructions()
ActiveCell = ("INSTRUCTIONS:" & Chr(10) & "All Purchase Orders Must be Visible on the Outside of the Box." _
& Chr(10) & "Call before Pack/Ship for approval by buyer. Failure to do so could result in refusal of shipment.")
With ActiveCell
.Interior.ColorIndex = 6
.Font.ColorIndex = 3
.Font.Bold = True
.BorderAround Weight:=xlThick, ColorIndex:=3
End With
End Sub
Thanks,
YLP