Open file at specific cell dependant on value of another

Hi Guys
Sheet1 Cell A1 has Today() value populated
Sheet2 Cell A1 to JO1 have dates from 01/01/2018 to 31/12/2018

Id like the file to open on today's date (value = Sheet1 Cell A1), position = Sheet2 Row1

Private Sub workbook_open()
Application.Goto Worksheets("Sheet1").Range("a1")
End Sub

Gets the file to open the right worksheet, but how would you select the right cell, and how would this differ if you wanted the "goto cell" routine apart from the file open

Thanks in advance

Works a charm - Thank you so much Bakerman2. Not sure if I'm more impressed with the result itself or the speed you delivered it!

Thanks JLGWhiz - my example here was simplified, so in fairness I didn't convey the complexity of the requirements environment, but this is good to bear in mind too

One more thing - how do I invoke a msg if the (todays) date isn't found
Thanks in advance

Jackpot again Bakerman2 - thank you very much.