Using an InputBox to populate a cell

This line doesn't work:
ActiveCell.Value = InputBox("What is the New Entry?")

This line does work but I can't use it:
Range("A30").Value = InputBox("What is the New Entry?")
Problem is, I don't actually know the cell address, I'm using preceding code to find the cell I want.

Please Login or Register  to view this content.

What is my problem?
TIA

Try assigning a variable to the inputbox, then transferring the variable to the cell:

Please Login or Register  to view this content.

Thanks, but it still won't put the data in the cell.

Is the sheet protected? Do you receive any kind of either Excel or VBA error? Does any VBA code overwrite/delete this active cell? Both your and my code above should work, so something is amiss.

1. the sheet is not protected
2. it does select the last blank cell in the column (which happens to be A30)
3. by putting Range("A30").Value = "TEST" in the Immediate Window, I can force data into cell A30.

4. I get no error messages
5. however, the visible window when the macro is finished is the VBA window NOT the spreadsheet ???

Try this:

Please Login or Register  to view this content.

regards,
Simon

I had a Private Sub Worksheet_Change(ByVal Target As Range)

that was changing the entry to blank.

stepping through it showed me that!

Sorry for the trouble.

How does one keep straight all the codes you've written.
Especially when you're jumping back and forth between multiple projects all day?