在列表框上选择以填充活动单元格

Question

我想用单击列表框项目中的值填充活动单元格 此尝试将引发错误“参数不可选”，这是我所能做到的。

Sub ListBox13_Change(ByVal Target As Range)

Dim InstrRange As Range
Set InstrRange = Range("A4:A200")
If Not Intersect(Target, InstrRange) Is Nothing Then
    Set InstrRange = Range("A" & Target.Row)
    Range("A" & Target.Row).Select
End If

End Sub