VBA to use activesheet selection in Transpose

[lross]

Hi
I am using the built-in function Transpose to convert an array to a string and would like to use the current selection

ie change this

Comments = Join(Evaluate("TRANSPOSE('Base'!A1:A10  )"), vbNewLine)

to

Comments = Join(Evaluate("TRANSPOSE(Selection  )"), vbNewLine)

The latter gives a type mismatch

Cheers

 

[mikerickson]

Try

Comments = Join(Application.Transpose(Selection.Columns(1)), vbNewLine)

 

[lross]

perfect.

Many Thanks