VBA: goto cell in column A:A that contains date of sunday for curent week.

[mike760534211]

I have looked everywhere and unable to locate my answer. is is possible to write some VBA code that would, at the click of a button, go to the cell in Column A that contains the date for Sunday of the current week.

Column A contains dates that fall on every Sunday from start of 2014 - 12/9/2029.

example:
Current week is 11/23/2014-11/29/2014
Today is 11/25/2014
Current Weeks Sunday date is 11/23/2014

then when opening the book I could potentially be in cell A1 but click a button and it takes me to cell A52 which actually contains 11/23/2014 which is the current weeks Sunday date.

Apologies in advance if i am unclear or confusing.

 

[RickXL]

Hi,

Try this:

Sub FindSunday()
    With Sheet2
        .Activate
        .Cells(CLng(Application.Match(CLng(Date - Weekday(Date) + 1), .Columns(1), 0)), 1).Activate
    End With
End Sub

It starts with Date, subtracts the number of days after Sunday then Matches that date with what is in column A.
Mine works for Sheet2 - you will probably need to change that.