根据单元格触发器将值从一张纸复制到另一张纸上

Question

我正在尝试一种基于单元格触发器将值从一个工作表中的单元格复制到另一工作表中的另一个单元格的简单方法。我只是得到了一个调用子程序的单元格触发事件。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("C:C")) Is Nothing Then
            Application.Run "Workorder"
            'Application.Run "'my-calc2 - visualtest2.xls'!line"
            'Range("A" & ActiveCell.Row & ":J" & ActiveCell.Row).Value = Range("Requester name")
        End If
    End If
End Sub

我要打的子是

Sub workorder()
    Range("Requester_name").Value = Range(ActiveCell.Row, 3)
End Sub

但是最后一个子项是我被卡住的地方，我在做什么错了？