Dim rng as Range
set rng = worksheets("EmpData").Cells(rows.count,2).End(xlup )
if not isempty(rng) then
set rng = rng.offset(1,0)
end if
rng.value = Userform1.Textbox1.Text

--
Regards,
Tom Ogilvy

"WTG" wrote in message
...
I have a userform with a text box, that I've typed some information
into.
I now want to save that information to cell B1 on my "EmpData"
worksheet. but only if that cell is empty. if it's not, then writh the
text to cell B2.

What I thought I'd do was write an if statement that basicly says

if B(VAR)=" " Then
EmpData!B1 = TxtBox.caption
if not then Var=var+1

then just have it repeat itself over again.

and keep doing this adding a 1 to the Var until it finds a empty cell.

( B1,B2,B3,B4.....)

Can this be done?

I don't know VBA, and my VB is more then a little rusty.

Thanks for any help you can give me.

Wally