VB Code:
  1. mystr = range("A1") & "," & range("A2") & "," & ....