Double click cell to add a value to another cell in that row

[ipbr21054]

Morning,
My current range is S4 & down the page.
I wish to double click a cell in column A to then add the value DEL in column S on that same row.

So if the user double clicks in cell A27 the value DEL should be entered in cell S27

Same for cell A123 then S123 should also have DEL entered into it

I have this below but stuck with the adding of DEL in the cell.

  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
   If Not Intersect(Range("S4", Cells(Rows.Count, "S").End(xlUp)), Target) Is Nothing Then
  
      Cancel = True
  
      Active.Row.Value = ("DEL")
     
   End If

End Sub

 

[kevin9999]

Maybe this?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Range("A4:A" & Cells(Rows.Count, "S").End(xlUp).Row), Target) Is Nothing Then
        Application.EnableEvents = False
        Cancel = True
        Target.Offset(, 18).Value = "DEL"
        Application.EnableEvents = True
    End If
End Sub

 

[ipbr21054]

Works well thanks.

So the following means the target is 18 columns after the cell that is being double clicked ?

Target.Offset(, 18).Value = "DEL"

 

[kevin9999]

Works well thanks.

So the following means the target is 18 columns after the cell that is being double clicked ?

Target.Offset(, 18).Value = "DEL"

Correct.