Find Function Parameters work if recorded but not if written?

Hi Forum,

I'm writing a Macro to search through several Worksheets for a Value.
I've recorded the code using the Find Function & changing some of the parameters to get more exact results.
Example, the values I'm searching for are exactly what should appear in a Cell & be in the same case, so I've made those changes in the Find Dialogue box when I recorded the Macro.
My issue is that when I try to paste the same Macro the parts that cause errors are the 'LookAt :=Whole' and the 'MatchCase:=True' in the Find Parameters?

Here's my code & the data I'm using is a worksheet where the Value 'EMP' occurs randomly.

Either one will throw an error, & I wondered if anyone knows why & also how to fix this?

Thanks Peter

Sub find_all_emps()

    Sheets("CHTAB").Select
    Range("A1").Select
    Selection.CurrentRegion.Select
    Selection.find(What:="EMP", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=True, SearchFormat:=False).Activate
   End Sub

Thanks jindon, works fine.

Hi Peter,

What would this macro do?

Sub Macro1()

    Cells.Find(What:="EMP", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True _
        , SearchFormat:=False).Activate
End Sub

Perhaps your Selection doesn't go to the cell you want??

Thanks MarvinP, yours also works fine, Thank you.