Code: Select all
Private Sub Workbook_Open()
Dim cel As Range
Dim rng As Range
Dim dteTargetDate As Date
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("Positions").Activate
Code: Select all
Private Sub Workbook_Open()
Dim cel As Range
Dim rng As Range
Dim dteTargetDate As Date
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("Positions").Activate
Code: Select all
Sub ActivatePositions()
Sheets("Positions").Activate
Code: Select all
Private Sub Workbook_Open()
Dim cel As Range
Dim rng As Range
Dim dteTargetDate As Date
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.OnTime Now + TimeSerial(0, 0, 1), "ActivatePositions"
...
Code: Select all
Private Sub Workbook_Open()
Dim cel As Range
Dim rng As Range
Dim dteTargetDate As Date
dteToday = Range("J1").Value
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("Sheet1").Activate