Maybe it should be
Set sjåI = Worksheets("Hovudlister").Range(Worksheets("Hovudlister").Range("C2"), Worksheets("Hovudlister").Range("C2").End(xlDown))
Maybe it should be
Set sjåI = Worksheets("Hovudlister").Range(Worksheets("Hovudlister").Range("C2"), Worksheets("Hovudlister").Range("C2").End(xlDown))
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber