I think I have some code with the comma separated method, I will give that a shot.


Hi Claus,

I got it this far and now, I am bogged down. Object required error, but I also got lost with the Redim and the transpose out put

Howard


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

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

For Each arrC In Empl_Info
ReDim Preserve myArr(Empl_Info.Cells.Count - 1)
myArr(i) = arrC
i = i + 1
Next

With Sheets("Master")
.Range("A2").Resize(rowsize:=arrC.Cells.Count) _
= WorksheetFunction.Transpose(myArr)
End With

End Sub