Hi Mario,

Though what you want to do can be done in a small code,
since you are new and learning I will answer exactly your question part.

Change the the code first few lines as under:

Err.Clear
On Error Resume Next
Cells.Find(What:="new date", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:=False).Activate
If Err < 0 Then
MsgBox "No occurance found."
Exit Sub
End If
'continue your rest code
ActiveCell.Offset(0, -1).Range("A1").Select
' and so on



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!