Hvorfor får jeg fejl?

Hej du... Se koden:

Sub FindAgent()
Dim Agent As String, DeptRng As Object, AgentRow As Long

Set DeptRng = ActiveSheet.Columns(1)    'Eller hvor det nu er du soeger
Agent = "AgentNavn"
AgentRow = DeptRng.Find(Agent, LookIn:=xlValues).Row

End Sub