Selecting cells/rows

[dororke]

Hi,

I've written some simple VBA to look for the current date in my workbook and select the row its on, using the Sub auto_open(). The problem is that the selected row can sometimes appear half way down the screen and I would like it to be the first row.

This is the code:
For Each c In [b1:b150]
If c = Date Then
'Rows(c.Row).Select
Rows(c.Row & ":" & (c.Row + 20)).Select
End
End If
Next c

Any ideas?

Thanks in advance,
Dan

[Special-K]

Am no expert but could you use the ScrollRow property? It tells you the number of the row that appears at the top of the pane/window. VBA Help says you can set this value too so I guess if what you want is on row 149 and you just set ScrollRow to 149 then you should end up with row 149 at the top of your window

[dororke]

Great :-)

That has done the trick, thanks.