If I understand what you want correctly (A1 contains a **real** Excel date
whose month you want to find in Row 7 where A7 contains January, B7 contains
February, etc.), then this single line of code should do what your 7 lines
of code do...

Cells(7, Month(Range("A1").Value)).Offset(1).Select

By the way, the code you posted starts looking from B7, but your original
message seemed to indicate that January was in A7... your code, as written,
will not find a January date... you would need to change your B7 to A7 to
make it work as you originally described the problem.

--
Rick (MVP - Excel)


"Louise" wrote in message
...
Actually I worked it out - Thanks anyway..

Range("B7").Select
Do
If ActiveCell < nowmonth Then
ActiveCell.Offset(0, 1).Select
End If
Loop Until ActiveCell = nowmonth

ActiveCell.Offset(1, 0).Select


:)


"Louise" wrote:

Hi,

I have some data and the headers for the numbers are months. All the
months
are on row 7. I need to add some code to start looking in row 7 (cell
A7)
and look at each column to locate the relevant date entered in cell A1.

Example: The code needs to look at cell A7, then B7, then C7 etc etc
until
it locates the right value.

How can I do this please?

Thanks,