Rob,

sounds like you are looking for something like this

Dim rw as long, col as long

col = Sheets(1).Cells(rw, Columns.Count).End(xlToLeft).Column

--
steveB

Remove "AYN" from email to respond
"Rob Hargreaves" wrote in message
...
Hi I have a userform and I have a text box called txtname

I would like to add txtname to a sheet called sheet7 in row 1's first
available column.

can you tell me how I can do this?

I know how to add it to the next available row in a column but not the
next available column in a row.

Thanks,

Rob