Need help tweaking VBA code

[Russk68]

Hi all
I am using the code below with a BeforeDoubleClick event. I need help for the =CJ3 to be relative.

If Not Intersect(Target, Range("c:c")) Is Nothing Then 'change this column to suit
    Target.Formula = "=CJ3"
    Target.Offset(1, 0).Select
End If

Thank you!

 

[Trevor_S]

This macro checks that you're in column C, and if you are, enters the formula =CJ3. So by "relative", I'm assuming that you want it to be column CJ for whatever row you're on? If so, try:

If Not Intersect(Target, Range("c:c")) Is Nothing Then 'change this column to suit
    Target.Formula = "=CJ" & Target.Row
    Target.Offset(1, 0).Select
End If

 

[Russk68]

Thank you Trevor!