For i = 1 To 17
Set uRange = Sheet1.Range(Cells(1, i), Cells(19, i))
uRange.AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Sheet3.Cells(1, i), Unique:=True
Next i

Can someone explain why this code works if I write it as above, but if
I change the CopyToRange to Sheet3.Range(Cells(1,i)) I just get
errors?