Thanks for your response Ardus. Sorry I did not mention, inventory is
not entered on a daily basis. I previously used Lotus. Looking to do
the same here if possible. One function selected the day of the month
and remained in the column until change of day. The other function
found the stock item number and inventory was entered that way.

Rube


On Tue, 14 Mar 2006 10:34:02 +0100, "Ardus Petus"
wrote:

Try something like:

If Not cell Is Nothing Then
cell.Offset(0, Day(Date)+1).Select

This will offset 15 columns to the riht (14/03/2006)

HTH