摘要: 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" 阅读全文
posted @ 2012-09-01 09:32 放飞梦想 阅读(364) 评论(0) 推荐(0) 编辑