OK, I must be missing something obvious here?

Worksheets("Sheet1").Select 'Select sheet1 sheet
Range("A5").Select ' Selects top row below title
Selection.EntireRow.Insert 'Inserts a new row at that point
MsgBox (TextBox1.Value)
Range("A5").Select
TextBox1.Text = ActiveCell.FormulaR1C1 'inserts name
TextBox2.Value = Range("E5").FormulaR1C1 'inserts county

It works fine up to MsgBox..where it displays the *correct* value.
Yet it won't insert it into a cell, using either Range..select then
ActiveCell.. or Range..Formula..

Just blank cells?

What am I missing here?

Thanks,

Ben


--
BWGames
to email change de.news to de-news

you have your assignments backwards:

Range("A5").Select
ActiveCell.Value = Textbox1.Text
Range("E5").Value = Textbox2.Text

--
Regards,
Tom Ogilvy



"BWGames" wrote in message
...
OK, I must be missing something obvious here?

Worksheets("Sheet1").Select 'Select sheet1 sheet
Range("A5").Select ' Selects top row below title
Selection.EntireRow.Insert 'Inserts a new row at that point
MsgBox (TextBox1.Value)
Range("A5").Select
TextBox1.Text = ActiveCell.FormulaR1C1 'inserts name
TextBox2.Value = Range("E5").FormulaR1C1 'inserts county

It works fine up to MsgBox..where it displays the *correct* value.
Yet it won't insert it into a cell, using either Range..select then
ActiveCell.. or Range..Formula..

Just blank cells?

What am I missing here?

Thanks,

Ben


--
BWGames
to email change de.news to de-news