Merging Cells with Same Text.

i mean selecting a cell of what is colored. This will be a loong timeline (like 3 years) and it would be helpful if the documents open on the actual week, which is the colored one.
 
Not sure that I understand that, but try this code in the ThisWorkbook code module

Code: 
Private Sub Workbook_Open()
    With Worksheets("Sheet1").Range("G8")
    
        .Offset(0, Application.Max(0, Int(Date - .Value) / 7)).Select
    End With
End Sub
 
You must log in or register to reply here.
Back
Top