try this. i entered test <alt<entercolumn in the B1, and i believe it was
norman's code i adapted


Sub tr()

With Columns(2)
Set fndRange = .Find(what:="test" & Chr(10) & "column",
LookIn:=xlValues)
End With
If fndRange Is Nothing Then
MsgBox "Not found"
Else
fndRange.Interior.ColorIndex = 35
End If
End Sub





--


Gary


"achidsey" (notmorespam) wrote in message
...
Excel Experts

In several headings, I have broken the heading over two lines by using
Alt+Enter to insert a line break between two words.

When I try to search for this text, the search fails.

In my VBA code, is there any way to successfully find this type of text.

Thanks,
Alan

--
achidsey