Markierten Bereich verketten

Ausgabe in G1

Sub BereichVerketten()
Dim c As Range, tmp As String
For Each c In Selection
  tmp = tmp & c & "', '"
Next
tmp = Left(tmp, Len(tmp) - 1)
[g1] = tmp
End Sub