popup window

[drawing.blanks]

Hello,
I've seen this before and can't figure a way to do it.

when opening Excel, a popup window appears with a question. you can then enter a value to answer the question in the popup window. then you can press enter, another window will popup with another question etc. the values you've entered will be inserted to the excel body appropriately. for example,

popup window with question: "What is your name?" your answer "John Doe"
popup window with question: "What is DOB?" your answer "1/1/2009"

the two values will be inserted as below:


this is John Doe. My DOB is 1/1/2009.


Is there a way to achieve this? Thank you in advance.

[royUK]

You can use InputBoxes or create a UserForm

Option Explicit

Private Sub Workbook_Open()

    Dim sName  As String
    Dim DOB    As Date
GetName:
    sName = Application.InputBox("what is your name?")
    If sName > "" Then
        Sheet1.Cells(1, 1).Value = sName
    Else: MsgBox "You must enter your name"
        GoTo GetName
    End If
GetDOB:
    DOB = Application.InputBox("what is DOB?")
    MsgBox DOB
    If DOB > 0 Then
        Sheet1.Cells(1, 1).Value = Format(CDate(DOB), "Long Date")
    Else: MsgBox "You must enter your DOB"
        GoTo GetDOB
    End If
End Sub

Copy the code
Select the workbook in which you want to store the code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
In the Project Explorer, find your workbook, and open the list of Microsoft Excel Objects
Right-click on the ThisWorkbook object, and choose View Code
Where the cursor is flashing, choose Edit | Paste

[drawing.blanks]

it works! thanks.