How to get cursor location to open on a specific cell adjacent to todays date

[wbstadeli]

Hi Guys,

I have a question, i have a time card with dates in column C, with the dates of the month filled in each row (example: C1=1/1/18, C2=1/2/18, C3=1/3/18, etc... Can i have a workbook_open code so that it searches that column or range (C1-C50) for todays date and then puts the cursor (selects) the cell to the immediate right of the cell containing todays date? If it doesnt find todays date then nothing...

Thanks!

 

[mumps]

Place this macro in the code module for ThisWorkbook. Change the sheet name to suit your needs. Save the file as a macro-enabled file. Close the workbook and then re-open it.

Private Sub Workbook_Open()
    Dim rng As Range
    Set rng = Sheets("Sheet1").Range("C:C").Find(Date)
    If Not rng Is Nothing Then
        rng.Offset(0, 1).Select
    End If
End Sub

 

[wbstadeli]

Thanks a bunch! This worked great!

 

[mumps]

You are very welcome.