Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR="Red"]If Target.Address = "$G$1" Then Cells(Target + 9, 1).Select[/COLOR]
Dim Inter As Variant
Set Inter = Application.Intersect(Target, ShClients.Range("Q10:Q1009"))
If Inter Is Nothing Then Exit Sub Else Liens
End Sub