I'm having trouble setting a range in some worksheet code

I was wondering if someone please could explain to me why I fail to set the range "sjåI" in the code below. More specifically I get the error message "Run-time error '1004'. Method 'Range' of object '_Worksheet' failed." For the life of me I can't understand what it is I am doing wrong.

Code:

---

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim s As String, sjåI As Range
 
  If Not Intersect(Target, ActiveSheet.Range("B3:S21")) Is Nothing Then
    If Not IsEmpty(Target) And Target.Count = 1 Then
      s = Right(Target, Len(Target) - 2)
      s = Replace(s, vbLf, " ")
      s = Replace(s, "-", "")
      Set sjåI = Range(Worksheets("Hovudlister").Range("C2"), Worksheets("Hovudlister").Range("C2").End(xlDown))
      Debug.Print (sjåI.Address)
    End If
  End If
End Sub

---

Maybe it should be

Code:

---

Set sjåI = Worksheets("Hovudlister").Range(Worksheets("Hovudlister").Range("C2"), Worksheets("Hovudlister").Range("C2").End(xlDown))

---

That worked, thanks for the help :)