Auto run two vba codes when an Excel workbook opens - excel

Question

I have two VBA codes I would like to run when the Excel workbook is opened.
Sub test2()
Dim c As Range
For Each c In Range("A1:A1").Cells
c.Select
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range
If Target.Address <> Range("A1").Address Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In Range("B3:P3")
xCell.EntireColumn.Hidden = (xCell.Value < Target.Value)
Next
Application.ScreenUpdating = True
End Sub
It runs perfectly manually.
I have tried Sub Workbook_Open, but it does not work.
I have tried in module, in sheet and in ThisWorkbook too.
Could not make it work automatically as the workbook opens.
This code is supposed to F2+Enter cell A1 and then hide some columns depending on value in A1.
I modified code in this way:
Private Sub Workbook_Open()
test2
End Sub
Sub test2()
Dim c As Range
For Each c In Sheets("MySheet").Range("A1:A1").Cells
c.Select
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range
If Target.Address <> Range("A1").Address Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In Range("B3:P3")
xCell.EntireColumn.Hidden = (xCell.Value < Target.Value)
Next
Application.ScreenUpdating = True
End Sub
When openning worksheet it starts performing, does the first part (F2+Enter), but stops there. Does not perform this part:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range
If Target.Address <> Range("A1").Address Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In Range("B3:P3")
xCell.EntireColumn.Hidden = (xCell.Value < Target.Value)
Next
Application.ScreenUpdating = True
End Sub
Code writen in Sheet1 (not "ThisWorkbook") manually performs well (not automatically).
The same code writen in "ThisWorkbook" starts performing automatically when file opens, but stops in the middle (as mentions earlier).

Answer 1

I think you're doing an over-engineering here.
Currently you want to:
Call on open Workbook_Open
... the macro test2 which simulates a change in the sheet (by pressing F2 and Enter), so that...
... the code inside Worksheet_Change gets called.
In fact, what you really want is to have the code that is now inside Worksheet_Change inside Workbook_Open.
So:
Remove test2
Remove the code from Worksheet_Change
Add your code directly inside Workbook_Open as follows:
Private Sub Workbook_Open()
Dim xCell As Range
Dim Target As Range: Set Target = Sheets("yourSheet").Range("A1")
Application.ScreenUpdating = False
For Each xCell In Sheets("yourSheet").Range("B3:P3")
xCell.EntireColumn.Hidden = (xCell.Value < Target.Value)
Next
Application.ScreenUpdating = True
End Sub