Home |
Search |
Today's Posts |
#3
![]()
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
![]() Sub SheetCheck() Dim i As Long Select Case Sheets.Count Case 1 Sheets.Add after:=Sheets(Sheets.Count) Case Is 2 For i = Sheets.Count To 3 Step -1 Application.DisplayAlerts = False Sheets(i).Delete Application.DisplayAlerts = True Next End Select End Sub Regards Claus B. Hi Claus OK thanks for this. Perfect first time. Best Wishes , Colin |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Check date range on three sheets? | Excel Discussion (Misc queries) | |||
Basic example formula needed to link between sheets add/subtract | New Users to Excel | |||
How do I check several sheets for data in a particular cell? | Excel Discussion (Misc queries) | |||
Check - Similar Row contents - Different Sheets | Excel Programming | |||
How to subtract many cell areas (between sheets) | Excel Programming |