Simple Inputbox

[Chewyhairball]

Hi

How do you get the following code to enter the data into the current selected cell instead of having to define a specific cell.? I am just looking

Dim i As Variant
i = InputBox("Please Enter Your Name", "Personal Information", "Type Here")
Range("A1").Value = i
End Sub

 

[dmt32]

Hi

try

Dim i As Variant
    i = InputBox("Please Enter Your Name", "Personal Information", "Type Here")
    ActiveCell.Value = i

Dave

 

[Chewyhairball]

Dim i As Variant i = InputBox("Please Enter Your Name", "Personal Information", "Type Here") ActiveCell.Value = i

What!!! that was the first thing I tried ( or I thought it was) and it didn't work. I thought it was that simple. I must have typed something wrong or I am losing the plot today.
Thanks very much DMT.

 

[dmt32]

you are welcome

If you want to add a little more functionality to your code

Dim i As Variant
    Do
    i = InputBox("Please Enter Your Name", "Personal Information", "Type Here")
    'cancel pressed
    If StrPtr(i) = 0 Then Exit Sub
    Loop Until Len(i) > 0 And i <> "Type Here"
    ActiveCell.Value = i

Dave