I have this piece of code:

newfname = EDIFormP6.WeeklyOutputp6.Value & Format(Date, "dd.mm.yyyy")
& "TESTING" & ".xls"

Open newfname For Output As #1

Range("A1").Select
Cell_Contents = "UNS1"
Print #1, Cell_Contents

Selection.Offset(0.1).Select
Cell_Contents = "LIN1"
Print #1, Cell_Contents

Selection.Offset(0.1).Select
Cell_Contents = "NAD2A"
Print #1, Cell_Contents

close #1

Now, when i look at the excel file after the code has run, the UNS1,
LIN1 & NAD2A is appearing all in column A down 1 2 & 3, ive tried
various different codes which i would of thought would put them all in
row 1 columns A B & C but it just always seems to but them in all in
column A. am i missing something here?