Workbook_Open - pick a value from cell reference & find in a Column and go to that cell

Hello,

My Range is Col A and criteria in L1. when workbook open it should take the value from L1 and find in the Range & go to the particular cell address.
Range & Criteria is DATE

below code is not giving desired result. if this can be modified or another lines of code will help.

Private Sub Workbook_open()
Dim strdate As date
Dim rCell As Range
strdate = Range("L1").Value

Set rCell = Cells.Find(What:=strdate, After:=Range("A1"), LookIn:=xlValues _
, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

If rCell Is Nothing Then
MsgBox ("nothing")
Else
rCell.Select
End If
End Sub

Are you sure that the sheet with L1 is the ActiveSheet when the file open?

Seems ok to me IF above is true...

Please Login or Register  to view this content.