No there isn't, but I broke it into little short baby pieces so you wouldn't
choke <g

Sub abc()
Set rng = Range(Range("B4"), _
Cells(Rows.Count, 2).End(xlUp))
For Each cell In rng
If Not IsEmpty(cell) And _
InStr(1, cell.Value, "total", _
vbTextCompare) = 0 Then
Range("D3").Copy cell.Offset(0, 2)
End If
Next
End Sub

--
Regards,
Tom Ogilvy


"uberathlete"
wrote in message
...

^^ Thanks Tom. I tried it, but there seems to be a syntax error in the
3rd line.


--
uberathlete
------------------------------------------------------------------------
uberathlete's Profile:
http://www.excelforum.com/member.php...o&userid=28388
View this thread: http://www.excelforum.com/showthread...hreadid=483510