PHP Code:
[B]Sub auto_open()
'
' auto_open Macro
'
MsgBox ("Welcome to Sabz Cupcakes Workbook")
Sheets("MainMenu").Visible = False
Sheets("CustomerInput").Visible = False
Sheets("ExistingCustomer").Visible = False
Sheets("OrderInput1").Visible = False
Sheets("OrderInput2").Visible = False
Sheets("Basket").Visible = False
Sheets("Invoice").Visible = False
Sheets("CustomerHistory").Visible = False
Sheets("OrderHistory").Visible = False
Sheets("Summary").Visible = False
Sheets("Chart1").Visible = False
Sheets("Chart2").Visible = False
Sheets("Chart3").Visible = False
Sheets("RawData").Visible = False
Sheets("(Correct)").Select
Range("G13,G15").Select
Range("G15").Activate
Selection.ClearContents
Range("G13").Select
Sheets("(Correct)").Select
Range("G15").Select
End Sub
___________________________________________________________________________________________
Sub auto_close()
'
' auto_close Macro
MsgBox ("Thank You for using Sabz Cupcakes Workbooks")
Sheets("(Correct)").Select
Range("G13,G15").Select
Range("G15").Activate
Selection.ClearContents
Range("G13").Select
Sheets("MainMenu").Visible = True
Sheets("CustomerInput").Visible = True
Sheets("ExistingCustomer").Visible = True
Sheets("OrderInput1").Visible = True
Sheets("OrderInput2").Visible = True
Sheets("Basket").Visible = True
Sheets("Invoice").Visible = True
Sheets("CustomerHistory").Visible = True
Sheets("OrderHistory").Visible = True
Sheets("Summary").Visible = True
Sheets("Chart1").Visible = True
Sheets("Chart2").Visible = True
Sheets("Chart3").Visible = True
Sheets("RawData").Visible = True
End Sub[/B]
I am ever so sorry for Including two very lengthy Macros, however i did not know how else to go about this problem. Basically, when i close and re-open the workbook, 5 sheets do not appear, which are the - ExistingCustomer, Sumarry, Chart1, Chart2, Chart3. Can anyone tell me why this is and please provide me with a solution?
Bookmarks