View Single Post
 
Old 10-12-2017, 03:48 AM
Debaser's Avatar
Debaser Debaser is offline Windows 7 64bit Office 2010 32bit
Competent Performer
 
Join Date: Oct 2015
Location: UK
Posts: 221
Debaser will become famous soon enough
Default

You could use:

Code:
CustomOrder:=Join(Application.Transpose(Range("A6:A105")), ",")
Reply With Quote