Hi, jwdesselle
I have modified your code like below.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("C3:I26,C30:I50")) Is Nothing Then Exit Sub Dim Cell As Range Cancel = True For Each Cell In Range("K" & Target.Row).Resize(, 3) If Cell.Interior.ColorIndex = 15 Then Cell.Value = Target.Value Exit For End If Next Cell End Sub