Hi Howard,

Am Mon, 28 Sep 2015 07:21:48 -0700 (PDT) schrieb L. Howard:

Out put is always text but is not used in formulas in this useage.

change the last part of the code to change numbers to real numbers:

If Len(Empl_Info) = 0 Or Empl_Info = False Then
MsgBox "No Entry"
Exit Sub
End If

myArr = Split(Empl_Info, ",")

With Sheets("Master")
Set Dest = .Cells(Rows.Count, 1).End(xlUp)(2)
For i = LBound(myArr) To UBound(myArr)
If IsNumeric(myArr(i)) Then
Dest.Offset(, i) = CLng(myArr(i))
Else
Dest.Offset(, i) = myArr(i)
End If
Next
End With

I guess a UserForm will be more readable and easier to use.


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