Code wont work - help please

[Wes_A]

My code:
Appears to run through but does not produced the expected result, only
offsets from current cell.

Sheets("AUDIT_TRAIL_MONTHLY").Select
On Error Resume Next
Range("A13:A24").Find(What:=Range("D2"), LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Offset(0, 1).Activate

 

[Mike H]

Hi,

What do you expect it to do?

If it finds the value it will select the cell to the right and then end.
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.

 

[FSt1]

hi
your code tells it to do that. remove the offset(0,1) from the find clause.

regards
FSt1

 

[Don Guillett]

Your code tested fine. Must be another problem.

If desired, send your file to my address below. I will only look if:
1. You send a copy of this message on an inserted sheet
2. You give me the newsgroup and the subject line
3. You send a clear explanation of what you want
4. You send before/after examples and expected results.

 

[Wes_A]

What I mean is, it is not finding the matching data in the first place, sorry
if I wasn't clear in my question.

 

[Mike H]

What I mean is, it is not finding the matching data in the first place

Then your data isn't a match. Check for rogue leading/trailing spaces
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.

 

[Rick Rothstein]

Can you give us an example of data it won't find?