[RESOLVED] How to join the contents of two cells into one?

[marlonsaveri]

Hello,
I tried:

Sub combine()
    Dim str(1 To 2) As String 'create the matrix
    Dim final As String 'create the string
    
    str(1) = ActiveCell.Text 'takes the value
    str(2) = ActiveCell.Offset(0, 1).Text 'takes the other
    final = Join(str, " ") 'join
    ActiveCell.Offset(0, 1).Text = final 'print
End Sub

But it results in error 424