Simple Array Function help!

Greetings,
I want to do following;
A1----------B1------ C1------ D1--- E1
England-Turkey-Germany-France-Italy

I am running following code;

Sub Macro1()
myarray = Array("England", "Turkey", "Germany", "France", "Italy")
For i = 1 To 5
    Sheets("Sheet1").Cells(1, i) = (myarray)
Next i
End Sub

This is Macro1 result;
A1----------B1------ C1------ D1--- E1
England-England-England-England-England


P.S: Using array function is must.

Regards