Refresh worksheets on open force any macros to run if required

[VonFeed]

Hello, I am working on a Workbook_Open formula. Right now the formula works, but it's not forcing Sheet 11 & Sheet 12 to do something. Normally on those Sheets once you click V6 (which is a data validation drop down list) it activates a VBA code for Worksheet_Change which tests if V6=V2 on the individual sheet and if not do: Application.Run "Do_it_1".

How can I incorporate the Application.Run "Do_it_1" into the below code or is there another way? FYI I have multiple sheets and Sheet 1-10 are not part of this formula and cannot be changed, so I cannot have a code that just checks every sheet in the workbook, but rather sheets 11-20.

Private Sub Workbook_Open()
MsgBox "Hello"

Application.EnableEvents = False
Sheet11.Range("V6").Value = Sheet2.Range("D5") '(THIS forces a drop down list to revert to the top choice)
Sheet12.Range("V6").Value = Sheet2.Range("D5") '(THIS forces a drop down list to revert to the top choice)
Sheet10.Activate
Sheet10.Range("T12").Select

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

Thanks for everyone's help.

 

[mikerickson]

Change the declaration of the Sheet11 Change event to

[U]Public[/U] Sub Worksheet_Change(ByVal Target As Range)

Then change the Workbook_Open code to

'...
Application.EnableEvents = False
With Sheet11
    .Range("V6").Value = Sheet2.Range("D5") '(THIS forces a drop down list to revert to the top choice)
    .Worksheet_Change(.Range("V6"))
End With
'...

Similarly with Sheet12.