Input box

Hi there

I have an inputbox with one input line. Is it possible to have two input lines in one input box?

Right now I have two input boxes to write the two things I want to write. But it will be great only to have one input box with two input lines.

Dim Message As String
  Message = "Input year." _
    & vbCrLf & vbCrLf
  Dim Messagea As String
  Messagea = "Input date" _
    & vbCrLf & vbCrLf




  ' Titel.
  Dim Title As String
  Title = "Input"
 


  Dim Default As Long
  Default = Year(Now())
  Dim Defaulta As String
  Defaulta = "Date"


  Dim nata As Long
  aarstal = Application.InputBox _
    (Message, Title, Default, Type:=1)
  Dim natb As String
  nata = Application.InputBox _
    (Messagea, Title, Defaulta, Type:=3)
    If aarstal = 0 Then End

Alring

Re: Input box

Hi Roy

The two input lines that I want to have in one inputbox is not to be gathered. What i write in the two inputlines I will insert in two different cells in the worksheet.

Re: Input box

Hi Roy

As the macro is now then comes there two input boxes. If I understand you correct thenis it not possible to have two lines in one input box. If that's correct then I will make a Userform instead.

Thank you for your help. :thanx: