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

Maybe

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

Mike

"Simon" wrote:

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

On Aug 11, 12:14*pm, Mike H wrote:
Maybe

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

Mike



"Simon" wrote:
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- Hide quoted text -

- Show quoted text -

But am I using the clipboard in doing this?

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

"Simon" wrote in message
...
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