Good morning (at least on my side of the globe)
Below is the workbook open event and it doesn't trigger.
ThisWorkbook is renamed to CSVWorkBook and I've done it with many other workbooks and no issues except for this one.
Events are enabled and calculation is et to automatic, there's a listobject in the worksheet that's activated
Begin_here is the macro I run when it opens
I googled and found the workaround to trigger it but I don't like that solution
Any ideas? tips?
Option Explicit
' private variable
Private wbOpenEventRun As Boolean
Private Sub Workbook_Open()
wbOpenEventRun = True
With Worksheets("Admin")
.Range("B1").Value = CSVWorkbook.Name
.Range("G1").Value = CSVWorkbook.Path & Application.PathSeparator
End With
Begin_here
Application.StatusBar = CaptionTxt(True)
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not wbOpenEventRun Then Workbook_Open
wbOpenEventRun = True
' perform tasks in reaction of selection change events, if required
End Sub
Update: I added a Public Sub Auto_Open (instead of Private) and just invoked the macro Begin_Here again, then it works but what really bugs me is that I quite using Auto_Open a long time ago and just depended on Workbook_Open event.
So, I still don't understand why it all at once quit working but, the workaround with Auto_Open does the trick for now, but I'm afraid that this might also mean that once Auto_Open is triggered the other is triggered once again
