If no FIND value is found, then a Msgbox to say so and exit sub
Hi Paul,
Thanks a ton for the code advice. Pretty smooth. I did have to change it a
bit so the "Found" cell would be selected and brought into view. This is to
allow a visual verification that the date stamp is in the correct place.
(End users wishes) The Goof Up message box is the watchdog of that but...
Again, thanks a ton Paul, and Chip.
Regards,
Howard
wrote in message
...
The alterations are untested.
HTH
Paul
--------------------------------------------------------------------------
------------------------------------
Be advised to back up your WorkBook before attempting to make changes.
--------------------------------------------------------------------------
------------------------------------
Sub BookReturnDate()
Dim aList As Range
Dim rngFind as Range
Dim Bcode As Variant
Bcode = Range("A1").Value
If Bcode = "" Then Exit Sub
Set aList = Range("G2:G2505")
On Error Resume Next
Set rngFind = aList.Find(What:=Bcode)
If not rngFind is Nothing Then
rngFind.Offset(0, 2).Value = Now
Else
msgbox "Goof Up"
End If
End Sub
|