VBA highlight specific Cells in row

[RedOctoberKnight]

Good Morning,

I'm trying to highlight specific cells within a row when its selected.

I've been trying to do a google search but all I can find is the EntirerRow method.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Cells.Count > 1 Then Exit Sub
  Application.ScreenUpdating = False


  Cells.Interior.ColorIndex = 0
  With Target
 
    .EntireRow.Interior.ColorIndex = 38
  
  End With
    
  Application.ScreenUpdating = True
End Sub

I have data in columns B through J

I ultimately want it to be when i select a row, it highlights the first 3 columns in that row one color, the next 3 one color, and the final 3 one color

Any help would be much appreciated.

Thanks,

 

[Snakehips]

@RedOctoberKnight
Subject to you editing the colour index to suit then maybe like below.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If Target.Cells.Count > 1 Then Exit Sub
  Dim r As Long
  
    Cells.Interior.ColorIndex = 0
    r = Target.Row
  Range("B" & r & ":D" & r).Interior.ColorIndex = 38
  Range("E" & r & ":G" & r).Interior.ColorIndex = 18
  Range("H" & r & ":J" & r).Interior.ColorIndex = 28

End Sub

 

[RedOctoberKnight]

Perfect. Thank you so much!