[COLOR="blue"]version 2[/COLOR]
With Selection
If .Column = 7 And Not IsEmpty(Selection) Then
.Interior.ColorIndex = 8
.Copy Destination:=.Offset(0, 1)
End If
End With
[COLOR="Blue"]version 1[/COLOR]
If Not IsEmpty(Selection) And Selection.Column = 7 Then
Selection.Interior.ColorIndex = 8
Selection.Copy Destination:=Selection.Offset(0, 1)
End If