my opening stopped working

[still learning]

Hi
the macro that i've been using for awhile stopped working
I can use F8 and it works fine
I have it in "This Workbook" as

Private Sub Workbook_Open()
Sheets("upcoming").Select
  With Sheets("upcoming").Range("A1")  
opening
End Sub

and in "Sheets("upcoming")". as

Private Sub Worksheet_activate()
Sheets("upcoming").Select
  With Sheets("upcoming").Range("A1")  
opening
End Sub

it puts the cursor on the correct date BUT will not scroll
I think it stopped scrolling on May first
Wonder if it has to do with the fact that there is a column called "MAY"
This macro is in a module

Sub opening()
   ' for upcoming
Set C = Range("A:A").Find(Date)
   If Not C Is Nothing Then C.Select
 ActiveWindow.ScrollRow = ActiveCell.Row
ActiveWindow.SmallScroll 'Down:=-1
End Sub

mike

 

[rlv01]

These two bits of code that you posted:

Private Sub Workbook_Open()
Sheets("upcoming").Select
  With Sheets("upcoming").Range("A1")  
opening
End Sub

Private Sub Worksheet_activate()
Sheets("upcoming").Select
  With Sheets("upcoming").Range("A1")  
opening
End Sub

Will not compile because the End With statement is missing. That might be a place to start.

 

[MikeVol]

Option Explicit - This is our everything!
ThisWorkbook module:

Option Explicit

Private Sub Workbook_Open()
    Application.Goto ThisWorkbook.Worksheets("upcoming").Range("A1")
End Sub

upcoming Sheet Module:

Option Explicit

Private Sub Worksheet_Activate()

    '  Your macro "opening" in short version
    Dim C As Range: Set C = Me.Range("A:A").Find(Date)
    If Not C Is Nothing Then Application.Goto C, True
End Sub

Good luck.