从活动单元格获取行

Question

我试图将一个对象分配给活动单元格的行，以便能够将该对象的值分配给命名单元格。我正在尝试的代码如下，但是我收到一条错误消息：“ Object required”：

Private Sub DisplayRow()

    Dim row As ListRow
    Set row = ActiveCell.EntireRow.Select

    If Not row Is Nothing Then
        Range("EditCountry").Value = row.Range(1)
        Range("EditFrom").Value = row.Range(7)
        Range("EditTo").Value = row.Range(8)
    End If

End Sub

“ EditCountry”是我要在其中显示所选行的第一列的值的命名单元格。

有帮助吗？预先感谢！