I have two sheets, one with a customer name and corresponding carriag
cost (named carriage) and one with customer name and many other column
of information including a blank space for carriage cost (name
customer.) The customer names are in different orders on the tw
different sheets.

I have wrote the below code which copies the carriage cost from shee
carriage into sheet customer which works until a customer that is o
the carriage sheet is not on the customer sheet. I would like the macr
to highlight the customer on the carriage sheet that is not on th
customer sheet and then continue with the macro.

Any ideas? Thank you for your help. Code below.

Sub carriagemove()
'
' carriagemove Macro
' Macro recorded 14/07/2005 by James Fuggle
'

'
Dim swop As String
Dim rw As String

Sheets("Carriage").Select
Range("A300").Select
ActiveCell.FormulaR1C1 = "Grand total"
Range("A1").Select
Cells.Find(What:="Grand total", After:=ActiveCell
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Application.CutCopyMode = False

rw = ActiveCell.Row
Range("A1").Select

Do While ActiveCell.Row < rw
Sheets("Carriage").Select

ActiveCell.Offset(1, 0).Select

swop = ActiveCell

ActiveCell.Offset(0, 1).Select
Selection.Copy

Sheets("Customers").Select

Cells.Find(What:=swop, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows
SearchDirection:= _
xlNext, MatchCase:=False).Activate
Application.CutCopyMode = False

If ActiveCell.Row = rw Then Exit Do

ActiveCell.Offset(0, 7).Select

Sheets("Carriage").Select
Selection.Copy

Sheets("Customers").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
SkipBlanks:= _
False, Transpose:=False

Sheets("Carriage").Select
ActiveCell.Offset(0, -1).Select

Loop

End Su

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