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