selecteer cel naast selectie bereik

[Tjerk10]

Beste forum gebruikers,

ik heb het volgende stukje code geschreven:

Public Sub CombineToOneCell()
        
        Dim rCell As Range
        Dim sCombineStr As String
        
        With selection
            For Each rCell In .Cells
                sCombineStr = sCombineStr & rCell.Text
            Next rCell
               
        .Offset(0, 3).Activate
      
        selection = sCombineStr
            
        End With
    End Sub

Ik probeer hiermee te bereiken dat ik de tekst samenvoeg in de geselecteerde cellen.
Nu wil ik samengevoegde tekst in de cel naast de selectie zetten. Mijn vraag is dus, hoe selecteer ik de cel naast het selectiebereik? Momenteel selecteer ik het zelfde aantal cellen naast het selectiebereik

Ik hoop dat iemand mij hiermee kan helpen.
Alvast vriendelijk bedankt!

Groeten,

Tjerk10

 

[leofact]

Dat lukt met
ActiveCell.Offset(0, 3).Select

mvg leo

 

[Tjerk10]

Het is zo simpel.
Leo echt super bedankt.

Groeten,

Tjerk10

 

[leofact]

Gelukkig wel soms.

Graag gedaan