Find and past value

[J. Stephen]

I came across this code ( which I've customized) that searches and offsets a specified name.
How can this be changed to Copy/Paste the value instead of Cut?

I'd like to keep this name in both columns,

Sub Offset_Name()
    Dim r       As Range

    Do
        Set r = Columns(4).Find("*-")
        If r Is Nothing Then Exit Do
        r.Cut Destination:=r.Offset(0, 1)
    Loop
End Sub

Thanks

[Bob Phillips]

Change Cut to Copy

[J. Stephen]

Thanks, Bob

Tried that, It copies the first cell, but then excel just hangs.


any ideas?

[Bob Phillips]

It is probably something to do with losing context, but not sure what. Can you post your workbbook?

[J. Stephen]

Offset_Test.xlsm

Thanks Bob.
My worksheet is just a simple test page, which works with the code as is, but is unable to copy them.

Cheers

[Bob Phillips]

Obvious when I see it

Sub Offset_Name()
Dim r As Range
Dim firstaddress As String
    Application.ScreenUpdating = False
    
    Set r = Columns(4).Find("*-")
    If Not r Is Nothing Then
    
        firstaddress = r.Address
        Do
            
            r.Copy Destination:=r.Offset(0, 1)
            Set r = Columns(4).FindNext(r)
        Loop Until r Is Nothing Or firstaddress = r.Address
    End If
    Application.ScreenUpdating = True
End Sub

[J. Stephen]

This works great!

Thank you very much, Bob!

...Cheers!