摘要:
Sub AddMenuSheet()'Check if sheet exists already; direct where to go if not.On Error GoTo Nosheet Sheets("Menu").DeleteNosheet: 'Add sheet as the first sheet in the workbook. Sheets.Add before:=Sheets(1)On Error GoTo 0 ActiveSheet.Name = "Menu" With Sheets("Menu" 阅读全文