I have two sheets, one has part names of companies on and one has th
full names on. I'm trying to replace the part names with the full name
by setting a part name to a constant then searching for it in the othe
sheet, then copying it over. However I can't find a way of using th
find function with a constant and a wildcard entry. Any ideas? Cod
below.


Dim swop As String


swop = ActiveCell
Sheets("Customer List").Select

Range("A2").Select
Cells.Find(What:=swop"*", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows
SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1 (2)").Select
ActiveSheet.Past

--
fugfu
-----------------------------------------------------------------------
fugfug's Profile: http://www.excelforum.com/member.php...fo&userid=2495
View this thread: http://www.excelforum.com/showthread.php?threadid=38713