Have a large amount of data on which to do a find/replace
routine. Current macro works fine, unless cell contains
multiple entries using word wrap. How can I look for
these specific multiple entries and replace with a single
coded entry?

I'm trying to replace this:
Irritant (Eyes, skin, respiratory tract)
Coughing, Choking, Headaches, Dizziness, Drowsiness

with:
Irritant-eyes-inhale-contact


Here's a snippet of the code I'm using:

Selection.Replace What:="Irritant (Eyes, skin,
respiratory tract)" & Chr(10) & "Coughing, Choking,
Headaches, Dizziness, Drowsiness", Replacement:="Irritant-
eyes-inhale-contact", LookAt:=xlWhole,
SearchOrder:=xlByRows, MatchCase:=False,
SearchFormat:=False, ReplaceFormat:=False

Selection.Replace What:="Irritant (respiratory system,
skin)" & Chr(10) & "Risk of serious damage to eyes",
Replacement:="Irritant-eyes-inhale-contact",
LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False,
SearchFormat:=False, ReplaceFormat:=False

The first Selection.Replace works and the second doesn't.

Any suggestions?