Long code short, I've created an ERP system for tracking shelf life for materials. The open sequence is as follows:
On Workbook Object
Private Sub Workbook_Open()
Sheets("Lists").Visible = True
Sheets("Materials").Visible = True
Sheets("CurrentMaterial").Visible = True...