can't get a macro to work when i open a sheet

[still learning]

Hi,
I open a workbook and have a few worksheets
I can’t get this to work when I open a worksheet
It worked last month
I tried the following:
I used F5 to send the cursor to the range name “August” and it worked.
I used F8 starting on >>>> Private Sub…..and it worked
I ran this before opening the sheet ---and it didn’t work

Sub enableevents()
Application.enableevents = True
End Sub

Private Sub Worksheet_activate()
months
End Sub
Sub months()
On Error Resume Next
Application.Goto Reference:=Range(Format(Date, "mmmm")), Scroll:=True
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveWindow.FreezePanes = True
Dim C As Range
Set C = Range("H1:H450").Find(Date)
If Not C Is Nothing Then C.Select
If ActiceCell.Row < 12 Then ActiveWindow.ScrollRow = ActiveCell.Row - 12
Selection.End(xlToLeft).Select
End Sub

When I open the sheet, the cursor is where it was when I save and close


Mike

 

[MARK858]

Try changing the name of the enableevents sub to something else then run it

 

[Jeffrey Mahoney]

I don't where you expect the cursor to end. I don't have the data you have so My cursor ended up in column A

 

[still learning]

Hi MARK858,
I tried putting >>>Application.Enableevents = True <<< before calling for the macro "months".
the "months" macro did not run.

Hi Jeff,
H1:H450 has months and dates>>>H1 = January...H2 = 1/1/2024... H3 = 1/2/2024
each cell that has a month name also has a range name.
H1 which has January in it has a range name as January. This is true for the whole year
I want the cursor to go to the range that is the current month. It worked for all the previous months
Then do "stuff"
It stopped working when we hit August 1
What it does now is nothing. on opening, the cursor is where it was when i saved and closed the program
It works fine for F8
I put the cursor on "Private Sub Worksheet_activate()" and run thru the macro using F8. it works perfect
It worked fine for the other months.
I've not change anything...except for adding the >>>Application.Enableevents = True <<< a couple of hours ago

mike

 

[MARK858]

Comment out the On Error Resume Next line so you can see what actually happens (also what error were you getting to have it there in the first place)

 

[still learning]

I took out the On Error Resume Next line and got no error message. I don't remember why I had it in.
I put a icon on the ribbon to run "months".
I changed

Application.Goto Reference:=Range(Format(Date, "mmmm")), Scroll:=True
to
Application.Goto Reference:=Range("August"), Scroll:=True
and the macro ran perfect.
I didn't have this problem in previous months.
Here is the macro with the revisions that ran perfect with the ribbon icon

Sub months()
        '   On Error Resume Next
Application.Goto Reference:=Range("August")), Scroll:=True
       '   Application.Goto Reference:=Range(Format(Date, "mmmm")), Scroll:=True
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveWindow.FreezePanes = True
Dim C As Range
Set C = Range("H1:H450").Find(Date)
If Not C Is Nothing Then C.Select
If ActiceCell.Row < 12 Then ActiveWindow.ScrollRow = ActiveCell.Row - 12
Selection.End(xlToLeft).Select
End Sub