Hello,

The macro bellow was written to find and replace text within a work
sheet. I also need it to bold those replacements.

Can anyone help?

Thank you,
ALC :)

Macro-

Sub Replace()
'
' Replace Macro
' Macro recorded 7/27/2005 by jthomas
'
' Keyboard Shortcut: Ctrl+z
'ActiveSheet.Select

Cells.Replace What:="RED VINES BLACK LICORICE LICORICE TWIST 64OZ
4136400103" _
, Replacement:="RED VINES JAR BLACK LICORICE TWIST 64OZ
4136400103", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="RED VINES RED LICORICE LICORICE TWIST 64OZ
4136400104", _
Replacement:="RED VINES JAR RED TWIST 64OZ 4136400104",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="RED VINES RED LICORICE LICORICE TWIST 2OZ
4136400222", _
Replacement:="RED VINES RED TWIST 2OZ 4136400222",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="RED VINES BLACK LICORICE LICORICE TWIST 8OZ
4136400231", _
Replacement:="RED VINES BLACK LICORICE TWIST 8OZ 4136400231",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="RED VINES RED LICORICE LICORICE TWIST 8OZ
4136400232", _
Replacement:="RED VINES RED TWIST 8OZ 4136400232",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="RED VINES ASSORTED LICORICE LICORICE BITE 8OZ
4136400240", _
Replacement:="RED VINES MIXED BITES 8OZ 4136400240",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="RED VINES GRAPE LICORICE TWIST 8OZ 4136400246", _
Replacement:="RED VINES GRAPE TWIST 8OZ 4136400246",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="RED VINES BLUE RASPBERRY LICORICE TWIST 8OZ
4136400247", _
Replacement:="RED VINES BLUE RASPBERRY TWIST 8OZ 4136400247",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="RED VINES WATERMELON LICORICE TWIST 8OZ
4136400248", _
Replacement:="RED VINES WATERMELON TWIST 8OZ 4136400248",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="RED VINES STRAWBERRY LICORICE TWIST 16OZ
4136400251", _
Replacement:="RED VINES JUMBO STRAWBERRY TWIST 16OZ
4136400251", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="RED VINES CHERRY LICORICE TWIST 16OZ 4136400255",
_
Replacement:="RED VINES JUMBO CHERRY TWIST 16OZ 4136400255",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="RED VINES STRAWBERRY LICORICE TWIST 5.5OZ
4136400271", _
Replacement:="RED VINES TRAY STRAWBERRY TWIST 5.5OZ
4136400271", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="RED VINES RED LICORICE LICORICE TWIST 6.5OZ
4136400273", _
Replacement:="RED VINES RED TWIST 6.5OZ 4136400273",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="RED VINES CHERRY LICORICE TWIST 5.5OZ 4136400275",
_
Replacement:="RED VINES TRAY CHERRY TWIST 5.5OZ 4136400275",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

End Sub


--
ALC
------------------------------------------------------------------------
ALC's Profile: http://www.excelforum.com/member.php...o&userid=25360
View this thread: http://www.excelforum.com/showthread...hreadid=394032