On 16 Aug, 10:52, DJ MC wrote:
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?

You are opening a file for output - fine, but that will create a text
file. The selection.offset is doing nothing as far as this code is
concerned apart from moving the cursor. My own preference would be to
reference the excel file and set the values as required but

Open newfname For Output As #1
Print #1, "UNS1", "LIN1","NAD2A"

close #1


will create a 3 column one row file for you