Scroll down to today's date

[pontiff]

Hi,
I'm using the following script from another thread to try to have my worksheet (sheet1) scroll down to the row containing today's date on opening.

Private Sub Workbook_Open()
Worksheets(“Sheet1”).Select
x = Format(Date, "dd/mm/yyyy")
On Error Resume Next
Worksheets(“Sheet1”).Columns(2).Find(What:=x, LookIn:=xlValues).Activate
Application.Goto Selection, True
End Sub

My dates are in column B as dd/mm/yyyy .

It seems to select the correct date (green box appears around 06/03/2018) but doesn't scroll down/up to it.
Any advice much appreciated.

 

[pontiff]

One last question... the dates are in column B so it “hides” column A when it scrolls. Can the code be altered to scroll down to today’s date row but still show column A?

 

[Joe4]

Just change this:

[COLOR=#333333]ActiveWindow.ScrollColumn = Selection.Column

to this:
[/COLOR]

[COLOR=#333333]ActiveWindow.ScrollColumn = 1[/COLOR]

 

[pontiff]

That’s great thanks!