Phil

one way, mostly from the VBA Help:

Sub FindWaivedInQ()
Dim c As Range
Dim FirstAddress As String
With Range("Q1:Q" & Range("Q" & Rows.Count).End(xlUp).Row)
Set c = .Find("waived", LookIn:=xlValues)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
c.Offset(0, -3).Value = "W"
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
End If
End With
End Sub

Regards

Trevor


"Phil #3" <faas@mindspring.com> wrote in message
news:M5C1e.40$x4.14@newsread1.news.pas.earthlink.net...
>I need to add the following to my present macro if possible.
> In column Q, which often contains a sentence or two of text, sometimes
> nothing, I need to add the function to find the word "waived", if present,
> from among the words in each cell and place a "W" into column N on the
> same row and if not present, put nothing then continue the macro.
> (XL2000, column currently formatted as "General").
> Phil
>
>
>