Color 8 cells on DBL click
Thanks a million that worked but how do I get the border red like before?
--
Thanks,
Chad
"Harald Staff" wrote:
Hi Chad
4*4 is 16, not 8 ;-). Hope this get you started:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel
As Boolean)
Dim BorderColor As Long
Dim Rng As Range
Cancel = True
Set Rng = Target(1).Offset(-3, 0).Resize(4, 4)
If Target(1).Interior.ColorIndex = 36 Then
Rng.Interior.ColorIndex = xlNone
Else
Rng.Interior.ColorIndex = 36
End If
End Sub
HTH. Best wishes Harald
"SoggyCashew" wrote in message
...
Hello, If I clicked on a square/cell how could I get it to color a 4 X 4
cell
"8 cells all together" area with the cell that was clicked being the
bottom
left cell? I'm using this code to color the single cell.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel
As Boolean)
Dim BorderColor As Long
If Target.Interior.ColorIndex = 36 Then
Target.Interior.ColorIndex = xlNone
BorderColor = 0
Else
Target.Interior.ColorIndex = 36
BorderColor = -16776961
End If
With Target
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeLeft).Color = BorderColor
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Color = BorderColor
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Color = BorderColor
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeRight).Color = BorderColor
End With
Cancel = True
End Sub
--
Thanks,
Chad
.
|