Whats wrong with this? MyWBAccRep.Sheets("Volumes").Cells.Find("latest"). Copy.Offset(0,
 

MyWBAccRep.Sheets("Volumes").Cells.Find("latest"). Copy.Offset(0,
1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

Thanks (I've put it all on one line).

It works as

MyWBAccRep.Sheets("Volumes").Cells.Find("latest"). Copy

ActiveCell.Offset(0, 1).PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Whats wrong with this? MyWBAccRep.Sheets("Volumes").Cells.Find("latest"). Copy.Offset(0,
 

MyWBAccRep.Sheets("Volumes").Cells.Find("latest"). Copy

ActiveCell.Offset(0, 1).PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

In fact the above doesn't work either

Whats wrong with this? MyWBAccRep.Sheets("Volumes").Cells.Find("latest"). Copy.Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 

Modify this idea to suit
Sub findit()
Columns(3).Find("latest").Offset(, 1).Value = _
Columns(3).Find("latest").Value

End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Simon" wrote in message
...
MyWBAccRep.Sheets("Volumes").Cells.Find("latest"). Copy.Offset(0,
1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

Thanks (I've put it all on one line).

It works as

MyWBAccRep.Sheets("Volumes").Cells.Find("latest"). Copy

ActiveCell.Offset(0, 1).PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks:=False, Transpose:=False