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 <Mi...@discussions.microsoft.com> 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" <(E-Mail Removed)> wrote in message
news:26dd131b-148f-4647-ad51-(E-Mail Removed)...
> 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