go to current date

[trebor1956]

Hi, I currently have the following code as worksheet activate code, it works fine but I would like to add in a message if date not found;

Private Sub Worksheet_Activate()
Dim DateRng As Range, DateCell As Range

Set DateRng = Range("2:2")
For Each DateCell In DateRng
If DateCell.Value = Date Then DateCell.Select
Next
End Sub

Hope you can help,

 

[dmt32]

Hi
Try

Private Sub Worksheet_Activate()
    Dim DateRng As Range, DateCell As Range
    
    Set DateRng = Range("2:2")
    
    For Each DateCell In DateRng
        If DateCell.Value = Date Then DateCell.Select: Exit Sub
    Next
    MsgBox Date & Chr(10) & "Record Not Found", 48, "Not Found"
End Sub

Dave

 

[trebor1956]

Hi
Try

Private Sub Worksheet_Activate()
    Dim DateRng As Range, DateCell As Range
    
    Set DateRng = Range("2:2")
    
    For Each DateCell In DateRng
        If DateCell.Value = Date Then DateCell.Select: Exit Sub
    Next
    MsgBox Date & Chr(10) & "Record Not Found", 48, "Not Found"
End Sub

Dave

That works brilliant, thank you so much.

 

[dmt32]

That works brilliant, thank you so much.

welcome - glad could help

Dave