Coloring active cell & rows existing code edit

[ipbr21054]

I use the following code to high light rows & active cells etc.

My range is A-G & currently row`s 3-28

How can this code be altered so if the row 29 or 30 is selected then the Interior cell color & active cell turn Red

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim myStartCol As String
    Dim myEndCol As String
    Dim myStartRow As Long
    Dim myLastRow As Long
    Dim myRange As Range
 
    If Target.Cells.Count > 1 Then Exit Sub
   
    Application.ScreenUpdating = False
   
    myStartCol = "A"
    myEndCol = "G"
 
    myStartRow = 3
  
    myLastRow = 28
   
    Set myRange = Range(Cells(myStartRow, myStartCol), Cells(myLastRow, myEndCol))
   
    myRange.Interior.ColorIndex = 2
   
    If Intersect(Target, myRange) Is Nothing Then Exit Sub
   
  Range(Cells(Target.Row, myStartCol), Cells(Target.Row, myEndCol)).Interior.ColorIndex = 6
Target.Interior.Color = vbGreen
    Application.ScreenUpdating = True
 
End Sub

 

[ipbr21054]

Or other code that would work,
example.

My range is A29:G29
if a cell is selected withing my range then fill cells A29:G29 Red

Thanks.