Copying with .Value

[Simon]

Cells.Find("latest").Select
Selection.Copy Destination:=ActiveCell.Offset(0, 1)

I wish to use only the value of the cell.

What is wrong with

Cells.Find("latest").Select
Selection.Copy Destination:=ActiveCell.Offset(0, 1)

Thanks

 

[Mike H]

Maybe

Range("latest").Select
ActiveCell.Copy
ActiveCell.Offset(0, 1).PasteSpecial xlPasteValues

Mike

 

[Simon]

Maybe

Range("latest").Select
ActiveCell.Copy
ActiveCell.Offset(0, 1).PasteSpecial xlPasteValues

Mike









- Show quoted text -

But am I using the clipboard in doing this?

 

[Peter T]

Dim c As Range
'On Error Resume Next
Set c = Nothing
Set c = ActiveSheet.Cells.Find("latest")

If Not c Is Nothing Then
With c
..Offset(0, 1).Value = .Value
..Clear
' or maybe only
' .ClearContents
End With
' else
' msgbox "''latest'' not found"
End If

Regards,
Peter T