Here's a UDF. Function MakeList(rng As Range) As String Dim arrVals() Dim I As Long
arrVals = rng.Value arrVals = Application.Transpose(arrVals) For I = LBound(arrVals) To UBound(arrVals) arrVals(I) = Format(arrVals(I), "0000") Next I MakeList = Join(arrVals, ",") End Function Use it as a worksheet function eg =MakeList(A1:A4). --~--~---------~--~----~------------~-------~--~----~ ------------------------------------------------------------------------------------- Some important links for excel users: 1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at http://www.excelitems.com 2. Excel tutorials at http://www.excel-macros.blogspot.com 3. Learn VBA Macros at http://www.vbamacros.blogspot.com 4. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com If you find any spam message in the group, please send an email to: Ayush Jain @ jainayus...@gmail.com or Ashish Jain @ 26may.1...@gmail.com ------------------------------------------------------------------------------------- -~----------~----~----~----~------~----~------~--~---