Thanks again Bob, I realized I had to make change to the After string
to Range A1. Works like a charm. I may ask to help make my monthly
database a lot more simplified than the method I am using now.

Currently I have a worksheet made for each day of the month. What I'd
really like to do is have all the days on one worksheet.

Day 1 would be on cell.Offset(0, 4).Select - Day 2 would be on 0, 6
(2 cells per day). Rather than editing macro below to change
cell.Offset I would like to create another macro function to go to a
certain day say Day 2 which is Column F,G then remain in cell F until
day is changed.

Hope this makes sense. If not I can live with what I have until I
decide to learn more about macros.

Rube

On Thu, 9 Mar 2006 10:46:26 -0000, "Bob Phillips"
wrote:

Sub Macro1()
Dim ans
Dim cell As Range
ans = InputBox("Supply search string")
If ans < False Then
Set cell = Cells.Find(What:=ans, _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not cell Is Nothing Then
cell.Offset(0, 4).Select
End If
End If
End Sub