I would suggest to create/append a csv file (will be opened in Excel anyway).
I believe that is How your file is currently treated anyway.
As a CSV this might look like this

Dim TxtDelim, CellDelim

TxtDelim=chr(34)

CellDelim=","

Open "path" & "\data.csv" For Append As #1

MyString=TxtDelim & Application.UserName & TxtDelim & CellDelim & TxtDelim &
"Started doing task 1 at " &TxtDelim & CellDelim & cstr(Time())

Print #1, MyString

Close #1




"Duncan" wrote:

Hi all,

I am using some code to put data into a sheet that will hold all users
entries, but i want to to move (tab) to the next cell as at the moment
it will only put the whole lot into one cell and the next lot into the
next cell down and so on.

Any suggestions?

Open "path" & "\data.xls" For Append As #1
Print #1, Application.UserName; " Started doing task1 at "; Time()
Close #1

Duncan