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

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.


"Wes_A" wrote:

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

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

regards
FSt1

"Wes_A" wrote:

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

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.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Wes_A" wrote in message
...
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

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

"Wes_A" wrote:

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

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.


"Wes_A" wrote:

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

"Wes_A" wrote:

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

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

--
Rick (MVP - Excel)



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

"Wes_A" wrote:

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