Cells.find and .findnext

Hi guys, im very new to VBA and have been trying to put together a macro. Ive been trying to use

Cells.Find(what:="Cost Cde", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
       xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
       , SearchFormat:=False).Activate

with .findnext but keep getting a variety of errors. Is there a way to use these together or do I need something else altogther?
Thanks for any help

Originally Posted by royUK

The VBA help file example is good.

With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

Ive looked at that, but Im very new so theres a couple things that are different than the method ive posted that look different that im not sure about.

Worksheets(1).Range("a1:a500")

I would like to search the entire active worksheet as opposed to a specified range and also I tried doing the select worksheet thing but I dont know which worksheet in the workbook the macro is going to be run on, so i would just like it run on the active worksheet. Ive tried adapting that syntax to use the .find method ive posted above and I cant seem to get it to work.