Open at specific cell

[mcgregorbart]

Hello New User here
I have a spread sheet with dates of the current year across row 1. is there any way I can get workbook to open at the current date cell in that row every time i open workbook?

Thankyou Mcgregor

 

[Paul Morgan]

so when the workbook is openned have the cell with the current date selected??

 

[Paul Morgan]

Open workbook go to specific cell

place this code in the workbook module, every time the sheet is activated, it selects todays date in column F......

change the column as you require

[font=Arial]'If you have date's in column F then this example will select [/font][font=Arial]the cell with today's date.[/font]   [font=Arial][b]Private Sub Workbook_Open()
     Dim FindString As Date
     Dim rng As Range
     FindString = Date
     With Sheets("Sheet1").Range("F:F")
         Set rng = .Find(What:=FindString, _
                         After:=.Cells(.Cells.Count), _
                         LookIn:=xlFormulas, _
                         LookAt:=xlWhole, _
                         SearchOrder:=xlByRows, _
                         SearchDirection:=xlNext, _
                         MatchCase:=False)
         If Not rng Is Nothing Then
             Application.Goto rng, True
         Else
             MsgBox "Nothing found"
         End If
     End With
 
 End Sub
 
 
 [/b][/font]

this code and many other useful code can be found at this site

http://www.rondebruin.nl/find.htm

 

[mcgregorbart]

Thanks For The Help