GOTO Using the ()NOW Function Q

[John]

I am trying to go to the cell, 2 columns to the right of the cell the
current day is displayed in.

I have a list of days of the year in column A, input starts on Column C. I
want to initiate the user to go to the 'Current day' via the ()NOW function.
Part of the code I wish to use, which will freeze panes etc is below, but
not sure the syntax for including the ()NOW function

Thanks

Application.Goto Range("Schedule!A1"), True
ActiveCell.Offset(2, 0).Select
ActiveWindow.FreezePanes = True

 

[Bob Phillips]

You can't use Goto. Look at Find in Help.

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Dave Peterson]

I assumed that the dates were in a single column (A) on a worksheet named
Sheet1:

Option Explicit
Sub testme()

Dim res As Variant
Dim myRng As Range

With Worksheets("sheet1")
Set myRng = .Range("a2", .Cells(.Rows.Count, "A").End(xlUp))
res = Application.Match(CLng(Date), myRng, 0)

If IsError(res) Then
'not found, what should happen?
Else
Application.Goto myRng(res), scroll:=True
myRng(res).Offset(0, 2).Select
ActiveWindow.FreezePanes = True
End If
End With
End Sub