Not able to put column location from one worksheet to another

[rizzo93]

When a user double-clicks on a cell in one worksheet (on row 10), I want to put the location of that column in F3 on another worksheet.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Cancel = True
  If Target.Column > 2 And Target.Row = 10 Then
   Dim c As Long
   c = Worksheets("Deliverables").ActiveCell.Column
   Worksheets("Deliverables Prep").Range("F3") = c
  End If
 End Sub

So if the user double-clicks on a cell in row 10, column 5 on "Deliverables", I want 5 to go into F3 on "Deliverables Prep".


But when I execute the above code, I get this error message, "Object doesn't support this property or method."


I've even tried this code, but without success:

Worksheets("Deliverables Prep").Range("F3") = Worksheets("Deliverables").ActiveCell.Column

What am I missing please?

 

[Fluff]

You cannot copy an entire column & then paste it starting in row 3.
Either copy to F1, or only copy the used range.

 

[Joe4]

No need to use "ActiveCell". Target is the ActiveCell that triggered the code to run.

Try this:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    Dim c As Long
    
    Cancel = True
  
    If Target.Column > 2 And Target.Row = 10 Then
        c = Target.Column
        Worksheets("Deliverables Prep").Range("F3") = c
    End If
    
 End Sub

 

[Scott T]

Try

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Cancel = True
  If Target.Column > 2 And Target.Row = 10 Then
   Dim c As Long
   c = Target.Column
   Worksheets("Deliverables Prep").Range("F3") = c
  End If
 End Sub

 

[rizzo93]

Thanks everyone! Much appreciate!