Join

[John Davis]

Hello All:

Can someone tell me what's wrong with this code and why it is producing an error?

Sub Binder()
Range("b1") = Join((Range("A1:A9")), ",")
End Sub

The error is Runtime error 5 - Invalid procedure or call argument.

 

[MickG]

Try:-

Range("b1") = Join(Application.Transpose(Range("A1:A9")), ",")

Mick

 

[John Davis]

Try:-

Range("b1") = Join(Application.Transpose(Range("A1:A9")), ",")

Mick

Bingo!! Thanks alot!