HIghlight a cell within a Spilled Range, when selected

[Skybluekid]

Hi All,

I have a spilled range, when I click a cell in that range, I would like it highlighted. But if a cell is clicked outside the range, the cell would would not highlight. Any ideas would be welcome.

 

[Peter_SSs]

Like this? (Test with a copy)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  ActiveSheet.UsedRange.Interior.Color = xlNone
  If ActiveCell.HasSpill Then ActiveCell.Interior.Color = vbYellow
End Sub

 

[Skybluekid]

@Peter_SSs Thank you for the code.

I have modified it to work within a specific range.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheet2.Range("F2:F37").Interior.Color = xlNone
Sheet2.Range("F2:F37").Font.Bold = False
If ActiveCell.HasSpill Then ActiveCell.Interior.Color = vbYellow
If ActiveCell.HasSpill Then ActiveCell.Font.Bold = True
End Sub

 

[Peter_SSs]

Will the only spill range(s) in the worksheet reside in F2:F37?

BTW, no need to prefix any ranges with Sheet2 as I presume that this code will be in the Sheet2 module?
Also, no need to check twice if ActiveCell.HasSpill

Assuming the only spill range(s) would occur in F2:F37 ..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Range("F2:F37")
    .Interior.Color = xlNone
    .Font.Bold = False
  End With
  With ActiveCell
    If .HasSpill Then
      .Interior.Color = vbYellow
      .Font.Bold = True
    End If
  End With
End Sub

 

[Skybluekid]

Yes the spilled range only lives in that range. Thank you for the updated code and tips.

 

[Peter_SSs]

You're welcome. Glad to help.