macro: combine / modify date / hilite

[Guest]

Have 2 scripts, not sure how to combine. Just tried line hilte script, would
like to see if there is a way to use border hilite (top & bottom; shade
looking for would have been to not change colors, but idea works..) for line,
so colors not changed, otherwise to combine: (thanks)

XXXXXXXXXXXXXXXXXXXXXXXXXXXX
Other Code, check for hiliting line:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static mRow As Long
If mRow <> 0 Then
Rows(mRow).Interior.ColorIndex = xlNone
End If
mRow = Target.Row
Rows(mRow).Interior.ColorIndex = 22
End Sub

XXXXXXXXXXXXXXXXXXXXXXXXXXXX

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
If Target.Row < 91 Then Exit Sub
If Me.Cells(.Row, "A").Value = "." Then Exit Sub
If Not Intersect(Me.Range("AV:AW"), .Cells) Is Nothing Then
Application.EnableEvents = False
With Me.Cells(.Row, "BC")
.NumberFormat = "dd"
.Value = Now
End With
Application.EnableEvents = True
End If
End With
End Sub

 

[Guest]

p.s.: saw different script that included the following line, but rest of
that script (not included here, wiped color from rest of document). might
use this color / variation? thanks

Target.Rows.EntireRow.Interior.Color = vbYellow