Private Sub Worksheet_BeforeDoubleClick

[blaksnm]

Hi
My macro (see below) inserts todays date in active celle when double-click in any cell in ColH
Additional I want folowing done:
1) Insert value "Deleted" in celle ColC / same row
2) Format the same row (with f.ex red font) - complete row

Will somebody please guide me on this one?

Here is my macro:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub


If Not Intersect(Target, Range("RegisterUt")) Is Nothing Then
    Cancel = True
    Target.Value = Date
End If

End Sub

 

[RoryA]

For example:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub


If Not Intersect(Target, Range("RegisterUt")) Is Nothing Then
    Cancel = True
    Target.Value = Date
    Cells(Target.Row, "C").Value2 = "Deleted"
    Target.Entirerow.Font.Color = vbRed
End If

End Sub

 

[blaksnm]

Thanks!
That was speedy

 

[RoryA]

We aim to please.