Thread: Copy a range to string

This is very simple question.

I have names in the cells K10 to K12. I want to copy them to a string. Tried the following code, but the output is only cell k10 value.

Sub fill()
Dim x As Range, st As Variant

Set x = ActiveSheet.Range("k10:k12")


st = x.Value
[c1] = st
End Sub

I know this can be implemented using a for loop, but want to see the mistake in the above method.
Thanks

Getting Run time error 5
Invalid procedure call or argument