Hi Howard,

Am Mon, 28 Sep 2015 05:10:22 -0700 (PDT) schrieb L. Howard:

With Sheets("Master")
Sheets("Master").Range("A" & Rows.Count).End(xlUp)(2).Resize(rowsize:=arrC.Cell s.Count) _
= WorksheetFunction.Transpose(myArr)
End With

sorry for the delay. I was not at home.

Try:

Sub Inputbox_Comma()
Dim Empl_Info, i As Long
Dim myArr As Variant

Empl_Info = InputBox("Enter Employee Info, separated by commas")

myArr = Split(Empl_Info, ",")

With Sheets("Master")
.Cells(Rows.Count, 1).End(xlUp)(2) _
.Resize(columnsize:=UBound(myArr) + 1) = myArr
End With

End Sub


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional