split range address into individual cell addresses

[sifar786]

hi,

Given a range say, "A1:E1", i need a formula OR a single line of code to return a string of cells "A1","B1","C1","D1","E1". I do not want to use helper columns if it is a worksheetfunction, OR loops if its a VBA code.

has anyone tried something like this?

Function SplitRange(myRng as Range) as String
.....
.....
SplitRange= .....
End Function