Color 8 cells on DBL click

  • Thread starter Thread starter SoggyCashew
  • Start date Start date
S

SoggyCashew

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
 
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
 
Back
Top