Message Box

[Papi]

What would a person have to do to include results of a dropdown cell from cell G2 (Vendors names) right after the date eg. 4 Septemeber 2014 ABC Automotive 107339

    Dim prevText As String, resp As String
    prevText = ActiveCell.Value
    resp = InputBox("Enter invoice number."
    If resp = "" Then Exit Sub
    ActiveCell.Value = Format(Date, "d mmmm yyyy") & resp & Chr(10) & prevText
    ActiveCell.Select

 

[NeonRedSharpie]

    Dim prevText As String, resp As String
    prevText = ActiveCell.Value
    resp = InputBox("Enter invoice number.")
    If resp = "" Then Exit Sub
    ActiveCell.Value = Format(Date, "d mmmm yyyy") & & " " & cells(2, 7).value & resp & Chr(10) & prevText 
    ActiveCell.Select

Like that?

 

[Papi]

Perfect. Thanks for a quick and "Sharpie" response! Works great.